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HOW TO USE THE REALITY® MANUALS 


The Reality® manuals are written in modular format with each pair of facing 


pages presenting a single topic. 


This and other Reality manuals differ substantially from the typical reference 
manual format. The left-hand page of each topic is devoted to text, while the 
right-hand page presents figures referred to by the text. At the head of each 
text page are a pair of titles, the first title naming the section, the second 
the topic. Immediately below these titles is a brief summary (boxed) of the 
material covered in the topic. 
The advantage of this format will become readily apparent to the reader as he 
uses this manual. First, the figures referred to in the text are always con- 
veniently right in front of the reader at the point where the reference is made. 
Secondly, the reader knows that when he turns the page, he has completed one 
idea and is ready to encounter a new one. 
Documentation for the Reality system includes the following: 

Reality Programmer's Reference Manual, #1048 

Reality EDITOR Operator's Guide, #1052 

Reality ENGLISH’: programming Manual, #1038 

Reality DATA/BASIC'M. programming Manual, #1051 

Reality PROC and BATCH Programming Manual, #1044 

Reality Assembly Language Programming Manual, #1049 

Reality Bisync Operator's Guide, #1043 


The examples throughout this manual use certain conventions as defined in 
Figure A. 


CONVENTION MEANING 


Shaded text represents the user's tnput. 


TEXT Standard text represents computer output 
printed by the system. 


TEXT Italteized text ts used for comments and notes 
whteh help explain or desertbe the example. 


CR) Thts symbol represents a carriage return. 
b This symbol represents a space (blank). 


Figure A. Conventions Used Throughout This Manual 


SECTION 1 


INTRODUCTION 


1.1 THE REALITY® CPU AND HARDWARE 


The Reality system runs on a Microdata 1600 CPU. Although small in size, it has 
the architecture of a medium scale computer. Its main memory is core, and is ex- 
pandable to 131,072 bytes. The CPU cycle time is 200 nanoseconds, and the main 
memory full cycle time is 1 microsecond. The CPU is microprogrammed, meaning that 
the assembly language instructions are executed by many small micro-instructions 
which are "close" to the machine. These micro-instructions (firmware) are in read- 
only, fixed memory, as tnis affords higher execution speeds. Taking this approach 
permits proven hardware to be used for Reality systems while allowing the .flexibil- 
ity of a custom instruction set. 


The mass memory is disc, which is organized into 512 byte blocks called frames. 

Over 300 megabytes of disc storage can be configured on a Reality system. There 

is a large list of supporting hardware which can be interfaced to the 1600 Computer, 
including tapes, communication devices, terminals, etc. 


1.2 THE REALITY SYSTEM ARCHITECTURE 


Figure 1-1] shows an overall view of the software on the Reality system. The firmware 
is burned onto integratea circuit chips and placed on a firmware board. The monitor 
serves to allocate disc activity and to schedule processes for activation. It uses 
assembly language instructions which are executed by the firmware. There is a large 
volume of available system software, also written in assembly language, with instruc- 
tions executed by the firmware. This system software includes compilers, utilities, 
the assembler, and a large number of subroutines to which the user may interface. 


Reality will support up to 32 separate asynchronous processes (terminals plus the 
work they are doing). Because Reality code is reentrant, each may be running the 
same or different tasks. 


Reality assembly language operates through its own set of registers, stacks, accu- 
mulators, and other data structures. Each process iS asSigned a control block which 
contains 16 addressing registers, an accumulator, a return stack which will hold 1l 
entries, an accumulator extension, and a large number of other registers, counters, 
pointers, and flags which make the assembly language very powerful. The 16 address 
registers in a control block can access any byte in disc space. Relative addressing 
1s also possible using an offset displacement plus one of the registers to any bit, 
byte, word (16 bits), double word (32 bytes), or triple word (48 bits) in the entire 
virtual memory. 


Input and output to the terminals is handled automatically by the firmware, which 
makes these operations fast. Input and output to the discs are handled automati- 
cally by the monitor and firmware, a feature which greatly simplifies the program- 
ming task. 


HIGHER LEVEL 


LANGUAGES (RPG, 
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SYSTEM SOFTWARE 


MONITOR 


FIRMWARE 


CPU & CORE 


Figure 1l-l. Hierarchy of System Architecture 


1.3 THE REALITY INSTRUCTION SET 


The Reality Computer System has an extensive instruction set. The main features 
include: 


* Bit, byte, word, double-word, and triple-word operations. 


* Memory-to-memory operation using relative addressing on bits, bytes, words, 
double-words, and triple-words. 


* Bit operations permitting the setting, resetting, and branching on condition 
of a specific bit. 


* Branch instructions which permit the comparison of two relative memory 
operands and branching as a result of the compare. 


* Addressing register operations for incrementing, decrementing, saving, and 
restoring addressing registers. 


* Byte string operations for the moving of arbitrarily long byte strings from 
one place to another. 


* Operations for the conversion of binary numbers to printable ASCII characters 
and vice versa. 


* Arithmetic instructions for loading, storing, adding, subtracting, multiplying, 
and dividing the extended accumulator and a memory operand. 


* Control instructions for branching, subroutine calls, and program linkage. 
1.4 RESTRICTIONS ON USE OF ASSEMBLY LANGUAGE ON REALITY 
While the use of assembly language on Reality is supported, certain restrictions 
are placed on this usage to insure compatibility from one release to another, and to 


insure that the systems are both hardware and software supportable. The following 
are not supported. 


1) Any change to the assembly code system software supplied by Microdata. 


2) Any interface to routines not documented in the chapter SYSTEM SUBROUTINES 
in this manual. 


3) Any interface to P.I.B's or other data or code in non-virtual core. 
4) Any code written in monitor mode. 


5) Any modifications, deletions or additions to the tables PSYM and OSYM as 
Supplied on SYS-GEN tapes. 


6) Any interface to a device or peripheral not supplied by Microdata. 


1.5 MANUAL ORGANIZATION AND CONVENTIONS 


This manual is organized as follows: 


* Section 2 is essentially a "reference manual" for the Reality CPU. It des- 
cribes the system structure and the machine instructions. 


* Section 3 describes the Reality Assembly Language (REAL). 


* Section 4 describes the Interactive Debugger (DEBUG), which may be used to 
monitor and control program execution. 


* Section 5 documents Microdata-supplied system subroutines (and their inter- 
faces) which users may call. 


In presenting general command formats throughout this manual, the following conven- 


tions apply. 


Convention 


UPPER CASE 


lower case 


t} 


{Poe 


Meaning 


Characters or words printed in upper case are required and must 
appear exactly as shown. 


Characters or words printed in lower case are parameters to be 
supplied by the user (e.g., file name, item-ID, data, etc.). 


Braces surrounding a word and/or parameter indicate that the word 
and/or parameter is optional and may be included or omitted at 
the user's option. 


If an ellipsis (i.e., three dots) follows the terminating 
bracket, then the enclosed word and/or parameter may be omitted 
or repeated an arbitrary number of times. 


In presenting examples, the following conventions apply: 


Convention 


TEXT 


Meaning 

Shaded text represents the user's input. 

Standard text represents output printed by the system. 
This symbol represents a carriage return. 


This symbol represents a line feed. 


SECTION 2 


REALITY CPU REFERENCE INFORMATION 


This section is a "reference manual" for the Microdata Reality CPU. It provides a 
description of the system structure; of the arithmetic, logical, branching, skipping, 
and input/output operations; and of the interrupt and storage management system. 
Input/output devices are discussed in separate documents. 


2.1 SYSTEM STRUCTURE 
2.1.1 SYSTEM COMPONENTS 


The Reality system consists of a core storage unit, a tape drive, a printer, a disc 
storage device used as a virtual storage unit, a central processing unit (CPU), and 
from one to 32 input/output terminals. There is a one-to-one correspondence between 
a terminal attached to the system and a process. Additional input/output devices 
such aS magnetic tape units, disc units, card readers, and printers may be attached 
to the system. Input/output devices, other than a process's terminal, may be ac- 
cessed by any process. The disc unit containing the virtual store, however, cannot 
be accessed as an input/output unit, except by the monitor. 


2.1.2 INFORMATION FORMATS 


The system CPU processes information in units of 8 bits, or in multiples of 8 bits 
at a time. Each 8-bit unit is called a byte. 


Information may be a single byte, or may be grouped together in fields. Fields of 
two, four, and six bytes are called words, double words, and triple words, respec- 
tively. A field made up of an arbitrary number of bytes is called a string. The 
location of any field is specified by the address of the leftmost byte of the field. 


Addresses increase from ieft to right. 


Within any information format, the bits making up the format are numbered from left 
to right, starting with 0. Figure 2-1 shows the information formats. 


2.2 VIRTUAL STORAGE 


All information in the Reality system, other than the monitor program and certain 
data used by the monitor, is stored in virtual space. "Virtual" means that the 
physical location of this space moves from disc to core and from core to disc auto- 
matically, without attention from the user. 


2.2.1 VIRTUAL STORAGE ORGANIZATION 


Virtual storage is organized into blocks of 512 bytes each. Each block is called 
a frame. Frames are numbered from one to some maximum number which depends on the 
system configuration. When frames are needed for processing, they are moved into 
core for access by the CPU. Frames which are not used often are moved into disc 

storage to make room for other frames in core. This movement of frames is handled 
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Figure 2-1. Information Formats 


automatically by the Reality firmware and monitor, so as far as the user is con- 
cerned, available space can be viewed as a linear set of frames. Whether data is 
actually in core or on disc at any given time is of little importance, and is con- 
sidered only when optimizing programs. 


2.2.2 ADDRESSING VIRTUAL STORAGE 


All program references to information are references to virtual storage. Fields 
in virtual storage are referenced via a frame number (frame-ID, or FID) and a 
displacement. If the field being referenced is a single byte or a string, the 
displacement is the number of bytes relative to the first data byte of the frame. 
If the reference is to a word, double word or triple word, the displacement is 
the number of words relative to the first data byte of the frame. References to 
instructions are via a 12-bit frame number. Therefore, programs must be located 
in the first 4096 frames. 


2.3 CORE STORAGE 
2.3.1 CORE STORAGE ORGANIZATION 


Core storage is also orqanized into 512-byte blocks, called buffers. A few buffers 
are reserved for the monitor, tables, and status indicators which are required to 
operate the Reality system. The remaining buffers are available for storing data 
read in from disc; one buffer can hold exactly one frame of virtual storage. 


Any core buffer can hold any frame, and at any given time the buffers in core will 
have a scattering of frames. Frames are read into core as buffers become available, 
without regard to which buffers they are. Frames are written back to disc as they 
fall into disuse. 


2.3.2 ADDRESSING CORE STORAGE 


Byte locations in core storage are consecutively numbered starting with zero. A 
group of bytes is addressed by the leftmost byte of the group. The number of bytes 
in a group is either implied or explicitly defined by the particular Reality in- 
struction. The addressing mechanism uses a one-bit bank select register anda 
Sixteen-bit binary address register, giving a maximum of 131,072 addressable bytes. 


2.4 VIRTUAL STORAGE MANAGEMENT 


The Reality monitor uses several tables to manage the movement of frames between 
core and disc. 


The Buffer Status Table contains the status of each buffer in core storage--whether 
it is I/O-busy, corelocked (not to be read into) or, write-required (data in frame 


changed). 


The Buffer Map (or FID Table) is a table containing the virtual storage addresses 
of all frames currently in core buffers. 


The Buffer Queue (or Links Table) is a linked list of buffer numbers used to schedule 
buffers for disc I/O efficiently. 


The Hash Address Table (HAT) and the Hash Link Table (HLT) are used to locate frames 
in core storage. To det2rmine whether a given frame is in core or not, the frame 
number is transformed ("hashed") into a HAT entry number, which points to a list of 
HLT entries. This list contains the numbers of all frames in core which have the 
same HAT entry number. If the given frame number is not in the list, the frame is 
not in core, and a frame fault is then generated in order to read the frame in from 
disc. 


Figure 2-2 shows the interaction of the memory management tables. 
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Figure 2-2. Memory Management Tables 
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2.4.1 FRAME FAULTS 


If a program (process) attempts to reference data which is not in core, it is de- 
activated and marked disc-roadblocked by the firmware, and the monitor is activated 
to search for an available buffer for the frame. If an available buffer exists and 
the required disc drive is not busy, the monitor sets that buffer's status to I/0- 
busy and corelocked, zeroes the frame number in the Buffer Map, and commands the 
disc to read the requested frame into that buffer. Then the monitor selects another 
process for activation. When the disc interrupt occurs, indicating completion of the 
read, the monitor stores the requested frame number in the Buffer Map, clears the 
I/O-busy and corelocked buffer status, and clears the process's disc-roadblocked 
flag. The monitor then starts another disc read, if possible, for another process, 
and selects another process for activation. 


If a process needs a frame read into core and no buffer is available, the monitor 
finds the least recently used buffer which is not corelocked, writes it out to disc 
if its write-required flag is set, and marks it available. By the time a buffer is 
written out, however, the disc drive required to read in the desired frame may be 
busy, or another process may have already read this frame into core. But the buffer 
freed by a write is always marked available in the Buffer Map (by zeroing the frame 
number), and this table is always searched before using the available buffer. 


2.4.2 AUTOMATIC FRAME WRITES 


Whenever the monitor comoletes a search for disc roadblocks for an available disc 
drive and fails to find any, it next looks for a buffer with write-required, non- 
corelocked status. It searches the Buffer Map beginning with the least recently 
usec buffer and starts a write/verify operation for the first buffer found for an 
available disc drive. The monitor sets the buffer's corelocked flag and clears the 
write-required flag, but does not set the I/O-busy flag in this case. This means 
that processes may read and write data into and out of the buffer after the write/ 
verify operation is initiated, but if the data in the buffer changes, the firmware 
will set the write-required flag again. When the write/verify operation is complete, 
the monitor clears the buffer's corelocked status and searches for another process 
requiring disc I/O. The monitor thus ensures system efficiency by continually pro- 
viding available buffers. 


2.5 PROCESSES 


The Reality CPU is designed as an interactive system capable of communicating with 
several users simultaneously. A user communicates with the system via a terminal, 
and associated with each terminal is a process. A process can be defined as a con- 
tinuing operation on a set of functional elements (areas of virtual space). The 
number of processes in a Reality system is a function of its configuration. Each 
process, except the monitor process, iS associated with a Process Identification 
Block (PIB) in core, and a Primary Control Block (PCB) and other elements in virtual 
space. 


2.5.1 PROCESS IDENTIFICATION BLOCK 


Process Identification Blocks (PIBs) are used in handling the I/O operations asso- 
ciated with each process, and in scheduling activation and deactivation of the 
processes. Each PIB is 64 bytes long and is formatted as shown in Figure 2-3. 


NOTE 


The informatton in Figure 2-3 ts intended to give a better understanding 
of the operation of Realtty systems. It ts not tntended to be used as an 
tnterface spectftcatton. 


Byte PIB Bit 

Set when process may be activated 
zeroed to sleep until time in bytes 12-15 
Zeroed by firmware on frame fault 


mwhN F © 


Zero during terminal output 
Zero during terminal input 


OBYTEBLK/ 
IBYTEBLK 


NOU B&B WN F O 


Status 
Bytes 


eee Set to echo terminal input 
INDEBUG Set when process is executing from TCB 
Set by firmware on program trap 


mW DH FO 


Trap number 


: Byte address of last character in terminal I/O buffer 
Terminal 


I/O Buffer 


umber of bytes in terminal I/O buffer minus one 


Figure 2-3. PIB Format 


2.5.2 PRIMARY CONTROL BLOCK 


For each process there is a frame called the Primary Control Block (PCB). The 

PCB contains the accumulator, addre::s registers, subroutine return stack and string 
scan control characters associated with the process. Figure 2-4 describes elements 
of the PCB which are accessed by the: firmware. Figure 2-5 shows the entire PCB 
layout. Figure 2-6 shows the Secondary Control Block (SCB) layout. 


BYTES DESCRIPTION 
0 Reserved. 
L This byte contains the condition code resulting 


from a previous arithmetic instruction execution. 


3-5 These bytes are used for controlling the Move 
and Scan through Delimiter instructions. 


6-7 These bytes are used for controlling the DEBUG 
trace mode of operation. 


8-X'OB' These bytes contain the double-word accumulator 
extension. The accumulator extension contains 
the most significant portion of a product 
after a multiply operation. It contains the 
remainder after a divide operation. 


X*OC'=xX"0OF’ These bytes contain the double-word accumulator. 

ROO Se aL eS These bytes contain the 16 address registers. 
See the description of the address registers 
below. 

XK Te2* =x 183" These bytes contain the pointer to the current 


top of the subroutine stack. 


X'184'-X'1AF' These bytes contain the subroutine return 
stack. Each entry is four bytes long: the 
first two bytes contain the FID and the 
last two contain the displacement of the 
address one before that where program exe- 
cution is to resume upon returning from the 
Subroutine. 


Figure 2-4. PCB Elements Accessed by Firmware 
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Figure 2-5. 
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Figure 2-6. Secondary Control Block 
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2.6 FRAME FORMATS AND LINKAGES 


2.6.1 FRAME FORMATS 


The Reality system provides two types of frame formats: linked and unlinked. 


Unlinked formats contain 512 data bytes (see Figure 2-7). For unlinked frames, 
the displacement portion of an address is relative to byte 0 of the frame. Dis- 
placements outside the range O through 511 are not valid for frames in the unlinked 


format. 


S11 
UNLINKED Sil 


LOGICAL NUMBERING 
OF BYTES 


PHYSICAL LOCATIONS 
OF BYTES 


NOTE: FOR LINKED FRAMES, THE PHYSICAL BYTE 
IS 11 PLUS THE LOGICAL BYTE NUMBER. 


Figure 2-7. Unlinked Vs. Linked Frame Formats 


Linked frames contain 500 data bytes, numbered 1 to 500. For linked frames, the 
displacement of an address is relative to byte 11 of the frame. However, a dis- 
placement of zero is a reference to byte 511 of the frame previous to the current 
frame. Displacements for linked frames may be positive or negative so long as the 
displacement references a logically linked frame. The link field is described in 


Figure 2-8. 


6 7 8 9 10 11 Se 


1 2 3 4 5 
F RMN F RMP : Data 
(Next FID) (previous FID) i Section 
(500 bytes) 


BYTES NAMF DESCRIPTION 
0 = Unused and reserved. 
1 NNCF This byte contains a count ofthe number of next contig- 


uous frames which follow this frame. A zero in this 
byte indicates that this frame is the last frame ina 
contiguously linked set of frames. 


2-5 F RMN This field contains the frame number of the frame that 
FORWARD logically follows this frame. If byte 1 contains other 
LINK than zero, this will be the next higher numbered frame. 


If byte 1 contains a zero this may be any frame number. 
A zero in this field indicates that this is the last 
frame of a linked set. 


6-9 F RMP This field is similar to bytes 2 through 5 except that 
BACKWARD it contains the number of the frame preceding this 
LINK frame. 

10 NPCF This byte is similar to byte 1 except that it contains 


a count of the number of previous contiguous frames 
preceding this frame. 


ll -- Unused and reserved. 


12-511 Data section. 


Figure 2-8. Linked Frame Format 


2.6.2 LINKED SETS OF FRAMES 


A series of frames may be linked together to hold data structures that will not 
fit in a single frame. Such a linked set may contain contiguous frames, singly 
linked frames, or combinations. Figure 2-9 shows some examples. 


A. A SERIES OF SINGLY LINKED FRAMES 


ainie 1029 


B. A SET OF 30 CONTINGUOUSLY LINKED FRAMES 
NOTE 


NNCF = 26 
FRMN = 1004 
FRMP = 1002 
NPCF = 3 


If all NNCF and NPCF ftelds tn these frames were zero, thts would 


be a singly linked ltst of frames whtch happened to have consec- 
uttve FID's, 


6 CONTIGUOUS FRAMES SINGLE 54 
LINK CONTIGUOUS 
FRAMES 


C. TWO CONTIGUDUS LINKED SETS THEMSELVES LINKED WITH A SINGLE LINK. 
THIS IS TYPTCAL OF "LOGON WORKSPACE. ' 


ed . 
Por She be be be be be Pe 
eee tata t et ete 
PPh PRPS he be ot be bey 


PHYSICAL REGISTER POINTS TO PHYSICAL 

#'S BYTE ry 

s 11.12 61 511 O 11 12 6 511 61 511 
1 50 500 ea 1 50 500 50 500 


FRAME 2000 


LOGICAL 
#'S 
REG points to logical byte 50 of frame 3070. 


REG minus 500 points to byte 50 of frame 2000. 
REG plus 500 points to byte 50 of frame 1296. 


D. DISPLACEMENTS OFF OF A REGISTER WHICH POINTS INTO A SET OF 
LINKED FRAMES LOGICAL — 


#'S 
Figure 2-9. Examples of Linked Sets of Frames 
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2.7 ADDRESS REGISTERS 


All references to data, except immediate data, are made indirectly through an 
address register. There are 16 address registers in each PCB. Each address 
register contain 8 bytes as described in Figure 2-10. 


Address @) 1 2 3 4 5 6 7 

ce CORE ADDRESS|DISPLACEMENT | LINK FID 

Format 

BYTES DESCRIPTION 

O-1 These bytes contain the 16 bit main storage address of the 


referenced data. If the address is less than X'800', the 
address register is "detached." 


2-3 These bytes contain the displacement of the referenced data 
relative to the first data byte of the frame. The displace- 
ment is a 16-bit signed number. Negative values are 
represented in twos complement form. These bytes are 
meaningful only when the register is detached. (See the 
section ADDRESS REGISTER ATTACHMENT. ) 


4 zero in bit zero of this byte indicates that the register 
references data in linked format. If bit zero is a one, 
the register references the data in unlinked format. 


One in bit one indicates that frame attachment is in 
progress. Bit one can only be set during the execution of 
instructions that increment addresses with data movement. 


Bit 7 is used as an extension of the word address to 
indicate a main memory bank. 


5-7 These bytes contain the virtual storage frame number of 
the byte being referenced. 


Figure 2-10. Address Register Format 


ADDRESS REGISTER ZERO 


Register zero is used in a special way. This register always points to the PCB. 
Register zero is attached when the process is activated. The displacement field 
of this register is always effectively zero. 


ADDRESS REGISTER ONE 


When a process is not active, address register one contains the FID and displacement 

(minus one) for the next instructionto be executed. When the process is activated, 
the buffer address ofthe program frame (as determined from the buffer map) is added 

tot'.e displacement from register one. This value is placed into a hardware instruc- 
tion counter. The register is then converted to the attached form with the buffer 
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4 


address set to byte zero of the program frame. This allows register one to be used 
to reference data in the program frame. When the process is deactivated, the main 

storage location from the instruction counter is converted to the corresponding FID 
and displacement and the register is detached with these values placed into it. 


2./.1 ADDRESS REGISTER ATTACHMENT 


When setting up an address register, the first two bytes of the register must 

be set to zero. Bytes 2 through 7 are set to contain a virtual frame number and 
displacement. A register in this format is said to be detached. When a subse- 
quent instruction uses the detached register for a data reference, an attempt is 
made to convert the address register to the attached format. The attaching attempt 
is automatic and procedes as follows. The buffer map is searched to determine if 
the referenced frame is located in main storage. If the frame is in main storage, 
the location of the required byte is computed by adding the buffer address from the 
map to the displacement from the address register. The address is then placed into 
bytes O and 1 of the address register, thus forming the attached format. Once the 
register is attached, instruction execution takes place. 


If the referenced frame is not in main storage, the frame number is placed into 
bytes 12 through 15 of the PIB. Byte 0O, bit 2 of the PIB is set to O, thus road- 
blocking the process. Next, all of the address registers in the PCB are converted 
to detached format and a fault interrupt to the monitor is taken. 


Figure 2-11 summarizes the attachment/detachment process. 


A/R is Attached A/R is Detached 
when: when: 


} 1 2 3 4 5 6 7 
joo] = [me 
ran ee 
Address 


D 
Any instruction (1) Process is deac- 
that references tivated due to: 
data via the A/R terminal I/O; 
is executed. disk I/o (frame 
fault); peripheral 
I/O; timer run-out; 
monitor call. 


Execution of A S/R is moved to 
INC xr the A/R. 

DEC xr 

instructions. 


Execution of Execution of 
FAR r,n INC r,t 
instruction. DEC r,t 


if a frame bound- 
ary is crossed. 


Figure 2-ll. Attachment & Detachment of Address Registers 
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2.7.2 CAUTIONS INVOLVING REGISTER ATTACHMENT 


Address registers can be set up explicitly by setting their fields appropriately; a 
more conventional way is to move a S/R into it. Consider the following: 


FRM1OO ADDR 0,X'100' DEFINE A LITERAL S/R 
: REFERENCING FRAME X'100' 


MOV FRMLOO, R15 
and . 


ZERO RL5WA 
ZERO RL5DSP 
MOV =DX' 80000100', RLSFID 


It is important to note that, in the first sequence, the address register is auto- 
matically set to the "detached" format when the “MOV" instruction executes; in the 
second sequence, the address register is explicitly set to the "detached" format by 
the "ZERO RLSWA" instruction. The word-address of an A/R must be zeroed before 
other segments of the A/R are modified. 


2.7.3 ATTACHMENT AND DETACHMENT OF ADDRESS REGISTERS 


All instructions that reference data force "attachment" of the A/R(s) used in the 
reference. Other instructions do not do this; for example, the "increment A/R by 
tally" instruction will not cause a "detached" A/R to attach before execution. 


This point may lead to programming errors; consider the following sequence: 


Ll BCU AM,R6,NXT RO "ATTACHED' AT THIS POINT 
L2 INC R6, SIZE R6 MAY "DETACH" DUE TO THIS INSTRUCTION 
L3 MOV’ R6, SR4 SAVE R6 


The instruction at L2 may force R6 to "detach" (if the contents of SIZE are such 
that the resultant address is beyond the limits of the current frame); storing R6 
in SR4 will then cause SR4 to have a large positive displacement, and a FID equal 
to that in R6 at the time of execution of the instruction at Ll. Subsequently, a 
register comparison instruction of the form: 


BE R15,SR4,L20 
may execute incorrectly due to the fact that if the FID's of RL5 and SR4 are unequal 
at the time of execution, it is assumed that the two frames are continguously linked 
(see Section 3.14). Therefore, it is best to force "attachement” of R6 before L3;: a 
convenient way of doing so is to execute the instruction: 


L3A FAR R6,0 


though any data reference instruction would serve as well. 


2.8 THE MONITOR 


The monitor is a program that is an integral part of the Reality system. Its 
function is to initiate the transmission of information between core storage and 
virtual storage and to schedule each of the processes. 


2.8.1 MONITOR FUNCTIONAL ELEMENTS 


The monitor process is the only one not associated with a PIB. The PCB for the 
monitor is located in low core. 


Besides the functional elements described in Section 2.5.2, the monitor PCB con- 
tains such information as the system time and date, pointers for peripheral devices 
zero through fifteen, and the bootstrap software. 


When the system is operating in monitor mode, address registers are not checked for 
attachment. Instead, all data references are assumed by the firmware to be refer- 
ences to absolute core addresses. 


2.8.2 PROCESS SCHEDULING 


The monitor maintains a queue of processes currently in the system, arranged in 
increasing order of expected total processing time. The position of a process in 
the queue determines its priority for activation--the process at the head of the 
queue has the highest priority. The process with the highest priority without 
any roadblocks is always the next one to be activated. 


Expected total processing time for a process, at any given instant, is based on the 
amount of CPU processing and number of disc reads already done by that process. 
Interactive processes are favored by increasing their priority. As a process out- 
puts characters to the terminal, it migrates up the priority queue. When a process 
receives terminal input, it is moved to the head of the queue, for immediate activa- 
tion. As a process consumes system resources (CPU time and disc reads), it 

migrates down the priority queue. 


The effect of each system resource on a process's priority is controlled by a 
weighting factor. When the number of units of a resource consumed reaches the 
weighting factor, the process is moved up or down in the priority queue one posi- 
tion and the resource unit count is reset to zero. See ‘priority scheduling’ in 
The Programmer's Reference Manual. 


One process in the Reality system may be designated the Super High Priority Process 
(SHPP) in order to receive special handling in the process scheduling mechanism. 
The SHPP has top priority to all system resources, allowing it to run without 
interference from other process. This is implemented for BISYNC communictions. 

The following rules are applied to the SHPP: 


- The SHPP is reactivated when its CPU processing time quantum is used up. 


. Frame faults for the SHPP are processed as soon as the necessary disc is 
available. 


Disc interrupts which signal completion of a disc read for the SHPP cause 
the SHPP to be activated immediately. 


. Interrupts from devices with addresses in the range X'10'-xX'13' which 
are for the SHPP cause the SHPP to be activated immediately. 


- Voluntary RQM's by the SHPP allow two other processes to run before the 
SHPP is activated again. 


2.9 PERIPHERAL I/O 


Communication between the CPU and peripheral devices is made through controllers. 
Each controller has a unique device address in the Reality system. Device 
addresses 0 through 15 are used for non-virtual storage devices such as tape drives 
and line printers, addresses 16 through 23 are used for virtual storage devices 
(disc drives), and addresses 24 through 27 are used for the process terminals. 


I/O instructions other than those for terminal I/O must specify a device address 
and an order code. The meaning of each of the eight possible order codes is ex- 
plained in Figure 2-12. External interrupts cause the monitor to perform certain 
processing; during this time, further external interrupts are inhibited. 


2.10 PROGRAM TRAPS 


Certain error conditions cause the CPU to execute a trap to the DEBUG state; 
processing of the current program will be aborted, and a message indicating the 
nature of the trap, and the location at which it occurred, will be displayed. The 
table below shows these error conditions: 


Message Description 
ILLEGAL OPCODE An illegal (undefined) operation code 
has been executed. 
RIN STACK EMPTY A RIN (return) instruction was executed 


when the return-stack was empty 
(RSCWA equals X'0184'). 

RIN STACK FULL A BSL or BSLI (subroutine call) 
instruction was executed when the 
return-Stack was full (RSCWS equals 
X'O1BO'); the return-stack has been 
reset to an “empty"™ condition before 


the trap. 
REFERENCING FRAME ZERO An address register has a FID of zero. 
CROSSING FRAME LIMIT An address register in the "unlinked" 


format 1) has been incremented or 
decremented off the boundary of a frame, 
or 2) has been used in a relative address 
computation that causes the generated 
relative address to cross a frame 
boundary. 
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Message 


FORWARD LINK ZERO 


BACKWARD LINK ZERO 


PRIVILEGED OPCODE 


REFERENCING ILLEGAL FRAME 


RTN STACK FORMAT ERR 


DIVIDE OVERFLOW 
REFERENCING ILLEGAL DEVICE 


UNNORMALIZED 


Description 


An address register in the "linked" 
format has henn incremented past the 
last frame in the linked frame set. 
An address register in the "linked" 
format has been decremented prior to 
the first frame in the linked frame 
set. 

A Privileged operation code (one 
executable only in the Monitor mode 
of operation), has been found while 
executing in the Virtual mode. 

An address register has a FID outside 
the allowable disc configuration. 
The Return-stack pointer is illegal 
either less than X'0184', or greater 
than X'O1BO'. The return-stack has 
been reset to an "empty" condition. 
An overflow condition occurred ona 
divide operation. 

A device has been referenced outside 
the allowable system configuration. 
A storage register with an unnormalized 
displacement was referenced. 


*A register number will be printed out. 


ORDER NUMBER 


0 


OPE RATION 


Data Transfer 


Status/Function 


Block Input/INT 


Arm Interrupt 


Disconnect 


Disarm Interrupt 


Block Output/INT 


Unassigned 


DESCRIPTION 


A data byte will be transferred between the 
addressed device and the processor. Direc- 
tion of the transfer will depend on 
whether the instruction is an input or an 
output. 


A status byte will be input from the 
addressed device or a function byte will be 
output to the addressed device, depending 

on whether the instruction is an input or an 
output. 


The addressed device will start a concur- 
rent block input to memory and will generate 
an external interrupt at the conclusion of 
the transfer unless the interrupt has been 
subsequently disarmed. This order should 
be sent by an output instruction. 


Permits the addressed device to make an 
external interrupt request upon the satis- 
faction of an interrupt condition. This 
order should be sent by an output instruc- 
tion. 


The block transfer in progress by the 
addressed device is stopped and an end 
of block interrupt will occur unless the 
interrupt has been disarmed. This order 
should be sent by an output instruction. 


Inhibits the addressed device from marking 
an external interrupt request under any 
condition. This order should be sent by 
an output instruction. 


The addressed device will start a concurrent 
block output from memory and will generate 
an external interrupt at the conclusion 

of the transfer unless the interrupt has 
been subsequently disarmed. This order 
should be sent by an output instruction. 


This order, if assigned, may perform any 
required function as interpreted by the 
individual interface. If a byte transfer 
is desired the order may be sent by an 
input or an output instruction. 


Figure 2-12. Order Codes 


SECTION 3 


REALITY ASSEMBLY LANGUAGE (REAL) 


The Reality Assembler Language (REAL) translates source statements into Reality 

CPU machine language equivalents. The source program, or "mode", is an item in any 
file defined on the data base. The mode is assembled in place; that is, at the con- 
clusion of the assembly process, the item contains both the original source state- 
ments as well as the generated object code. The same mode can then be used to 
generate a formatted listing (using the MLIST verb) or can be loaded for execution 
(using the MLOAD verb). 


3.1 SOURCE LANGUAGE 


The source language accepted by the REAL assembler is a sequence of symbolic state- 
ments, one statement per source-item line. Each statement consists of a label 
field, an operation (or opcode) field, an operand field, and a comment field. 


3.1.1 LABEL FIELD 


The label field begins in column one of the source statement, and is terminated 

by the first blank or comma; there is no limit on its length. If the character 

"x" appears in the first column, the entire statement is treated as a comment, and 
is ignored by the assembler. The reserved characters * + - ' = are the only ones 
that may not appear in the label field. An entry in this field is optional for all 
except a few opcodes. A label may not begin with a numeric character. 


3.1.2 OPERATION FIELD 


The operation field begins following the label field and consists of a legal REAL 
opcode. Opcodes are pre-defined in the permanent opcode symbol file OSYM and con- 
Sist of one or more alpha characters. Opcodes may be mnemonics for Reality machine 
language instructions (e.g., B for BRANCH); macros, which may assemble into sever- 
al Reality machine language instructions (e.g., MBD for MOVE BINARY to DECIMAL) ; 

or assembler pseudo-ops (e.g., ORG for ORIGIN). 


3.1.3  OPERAND FIELD 


Operand field entries are optional, and vary in number according to the needs of 
the associated REAL opcode. Entries are separated by commas and cannot contain 
embedded blanks (except for character string literals enclosed by single quotes). 
The operand field is terminated by the first blank encountered. The characters 
+ - ' * have special meaning in this field. 


3.1.4 OPERAND FIELD EXPRESSIONS 


Entries in the operand field may be a symbol or a constant. A symbol is a string 
of characters that is either defined by a single label-field entry in the mode, or 
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The mode will not load correctly if its size exceeds 512 bytes, or if a FRAME 
statement is not the first statement assembled in the mode. In either case, a 
message will be returned indicating the error. 


The "N" option may be used with the MLOAD verb to load code into the TS workspace 
but suppress the normal copy from there to the specified frame. This may be help- 
ful in checking the size or checksum. 


3.5 VERIFYING A LOADED PROGRAM MODE 


After assembling and loading a program, the TCL-II verb MVERIFY is used to check 
the assembled program against the loaded program. 


Examples: 


[217] MODE 'EXAMPL1' VERIFIED FRAME = 34 SIZE = 477 CHECKSUM = C3A2 


014 oc 18 


[218] MODE 'EXAMPL2' FRAME = 35 HAS 1 MIS-MATCHES 


The first example verifies, but the second does not. In example two, the system 
informs the user that one byte at byte address 14 should have a value of OC, not 18. 


An "A" option is available, and will cause a columnar listing of all bytes which 
mismatch. Each value in the source program which mismatches will be listed, 


followed by the value in the executable frame. 


Example: 


pron ecu niin 


s 
a 


LOC SB 


saline ini hss aio Rune icine. so oe ac 


~ TOC SB AB LOC SB AB LOC SB AB 
014 0c 18 O15 13 17 42016 OF OD 017 3A 3C 


[218] MODE "EXAMPLE3' PRAME = 35 HAS 78 MIS-MATCHES 


The "E" option, useful when verifying several programs (items) with the same 
MVERIFY command, causes a message to be printed only if a program does not verify, 
and suppresses output otherwise. 


The "P" option causes all messages from MVERIFY to be routed to the line printer 
(spooler). 


3.6 TCL-II CROSS REFERENCE CAPABILITY 


3.6.1 CROSS-INDEX VERB 
The TCL-II CROSS-INDEX verb first clears the CSYM file then updates it item by 
item with the external references of each item. Each attribute in the CSYM item 
records references of a particular type, such as bit, character, half-tally, etc. 
The CROSS-INDEX verb requires the following format: 

CROSS-INDEX file-name item-list {(options) } 


Example: 


Would cross index all items of the MODES file. 

An example of what a portion of the CSYM file might look like after using the 
CROSS-INDEX verb is shown in Figure 3-2. Notice that the item called SYSTEM-SUBS-1 
has one extemal reference to Bl4, two extermal references to BKBIT, etc. 

3.6.2 XK-REF VERB 

The TCL-II X-REF verb uses the CSYM file as updated by the CROSS-INDEX verb for 
input. X-REF then updates the XSYM file in the opposite order of the CSYM file. 
The X-REF verb requires the following format: 


X-REF file-name item-list {(options) } 


Example: 


Would cross reference all items of the CSYM file. An example of what a portion of 
the XSYM file might look like after using the X-REF verb is shown in Figure 3-3. 
Notice that the item called T5 was externally referenced by WP3, WRAPUP-II, etc. 


The SORT verb may be used after performing X-REF to produce a sorted output. 


example: 


Would produce an alphabetical non-columnar listing on the line printer. REFERENCES 
and NONCOL are attribute definitions in the XSYM dictionary. 


Figure 3-2, Figure 3-3. 
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3.6.3 XKREF PROC 


The XREF Proc will perform the following functions: 


dhs 


Zs 


Clear the XSYM file. 


Use the X-REF verb to update the XSYM file. 


Alphabetically sort the XSYM file and output the results to either 
the user's terminal or to the system line printer. 


The XREF Proc requires the following format: 


Example: 


XREF file-name item-list { (options) } 


would cross reference ail items of the CSYM file and would list the results in 


alphabetical order on the line printer. 


3.7 THE REAL INSTRUCTION REPERTOIRE 


In defining the REAL opcodes, the following set of symbolic operands are used. 


symbol 


b 


Ope rand 


BIT 


CHARACTER 


DOUB LE-WORD 


HALF-WORD 


LABEL 


MODE ID 


Description 


A bit addressed relatively via a base 
address register and a bit displacement. 


A byte addressed relatively via a base 
address register and an 8-bit byte dis- 
placement. 


A 4-byte field addressed relatively via 
a base register and a 16-bit word dis- 
placement. 


A l-byte field addressed relatively via a 
base register and an 8-bit byte dis- 
placement. 


A label definition local to the current 
program frame. 


A 16-bit modal identification, comprised 
of a 4-bit entry point and a 12-bit frame 
number. The implied location is in the 
frame defined by the low-order 12 bits of 
"m", offset from the frame-beginning by 
twice the entry-point value. 


n LITERAL A literal or immediate value. The size of 
the assembled literal or value is 
dependent on the instruction in which 
the "n" is used. 


r ADDRESS- REGISTER One of the sixteen Reality address 
registers (A/R's). 


s STORAGE- REGISTER A 6-byte field (usually a storage-register, 
or S/R) relatively addressed via a base 
register and a 16-bit word displacement. 


t WORD A 2-byte field relatively addressed via a 
base register and a 16-bit word displace- 
ment. 


In the following subsections, the first number in the comment field of each 
instruction is the length in bytes of that instruction. The parenthesized foot- 
notes are defined in Section 3.7.12. 


3.7.1 CHARACTER INSTRUCTIONS (MOVES) 


MCC n,c 6 (1) Move Character to Character; the byte 
n,x 3 (character) defined or addressed by 
n,s 6 (1) operand-1 is moved to the location addressed 
c,;c 4 by operand-2. 
C.7 3 
c,s 6 (1) 
rc 3 
r,x 2 
r,s 5 (1) 
s,c 8 (2) 
s,Xr 5 (3) 
s,s 8 (2) 

MCI n,x 3 Move Character to Incrementing character; 
n,s 9 (1) The byte (character) pointer operand-2 is 
C,;r 4 incremented by one and the byte defined 
c,s 10 (1) or addressed by operand-1 is moved to the 
ae 2 location then addressed by operand-2. 
r,s 8 
s,X 5 (3) 
s,s 11 (2) 


MCI 


MII 


MIID 


n,r,n 
n,r,h 
hyr fc 
n,r,a 


rr, 
r,r,s 


r,r,n 


10 
13 
13 
L3 


ul on Ul Mm 


(4) 
(4) 
(4) 
(4) 


(1) 
(2) 
(3) 
(2) 


(1) 
(3) 
(2) 


(5) 
(5) 
(5) 
(5) 


(3) 
(3) 


Move Character Incrementing; the byte 
(character) pointer operand-2 is incre- 
mented by one and the byte defined by 
operand-1l is moved to the location then 
addressed by operand-2. This process 
continues until the number of bytes 
specified by operand-3 have been moved. 

At least one byte is always moved and if 
initially operand-3 = 0, 65,536 bytes will 
be moved. 


Move Incrementing character to Character; 
the byte (character) pointer operand-l is 
incremented by one and the byte then 
addressed by operand-1l is moved to the 
location addressed by operand-2. 


Move Incrementing character to Incrementing 
character; both byte pointers are incre- 
mented by one and the byte then addressed 
by operand-1l is moved to the location 
addressed by operand-2. 


Move Incrementing character to Incrementing 
character; both byte pointers are incre- 
mented by one and the byte addressed by 
operand-l is moved to the location addressed 
by operand-2. This process is repeated 
until the number of bytes specified by 

n,h,t or d have been moved. h,t ord are 
not destroyed and if initially zero, no 
bytes are moved. 


Move Incrementing character to Incrementing 
character; both addressing-registers 
operand-l and operand-2 are incremented by 
one and the byte then addressed by 
operand-1 is moved to the location 
addressed by operand-2. This process is 
repeated until the first addressing- 
register operand-1l matches the byte-pointer 
operand-3. If operand-1l = operand-3 on 
entry no movement takes place. 


Both addressing-registers are incremented 
by one, and the byte addressed by address- 
ing register-l is moved to the location 
addressed by addressing-register-2. The 
byte moved is then tested under the follow- 
ing masking condition where "n" is an 8-bit 
mask field: 


MEANING BIT O 1 2 4 5 6 
1b oH 

True/False 
Match on: X'FF! 

X'FE' 

X'FD' 

X'FC'= 

SCO 

SCcl 

SC2 


Bit 0 is a true/false flag; if set, the 
move stops on a "match" condition (as de- 
fined by bits 1 through 7); if zero, the 
move stops on a "non-match". Bits 1 through 
7 represent one character each; if any bit 
is set, the byte moved is compared to the 
character represented by the bit fora 
match. Bits 1 through 4 represent the 
special system delimiters SM (X'FF'), AM 
(X'FE'), VM (X'FD'), and SVM (X'FC') 
respectively. Bits 5, 6, and 7 represent 
the contents of the scan character-registers 
SCO, SCl, and SC2 respectively. (Thus only 
three of the delimiters are variable.) 

NOTE: Character-register SCO may not con- 
tain the hex patterns X'00' or X'Ol1'. None 
of the scan characters may contain a system 
delimiter. 


SCD r,n 3 Scan characters to delimiter(s). The 
addressing-register is incremented until a 
"match" condition (see MIID instruction) as 
defined by the 8-bit mask field "n" is 
found. 


MIIT 5 ee & 2 This instruction assumes that the lower half 
of the accumulator (TO) has an absolute byte 
count (up to 65535) defining the number of 
bytes to be moved (see MII opcode). If TO 
is zero when the instruction is executed, no 
operation is performed. Otherwise, the 
addressing-registers are incremented by 
one, and the byte addressed by addressing- 
register-l is moved to the location addressed 
by addressing-register-2, and TO is decre- 
mented by one. This sequence is repeated 
till TO reaches zero. 


MIIR rr 2 This instruction assumes that address 
register R15 is set up to a location equal 
to or greater than that of addressing- 
register-l. (See MII opcode). If the 
addresses of addressing-register-1l and 
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CHARACTER INSTRUCTIONS (TESTS) 
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register R15 are equal, no operation is 
performed. Otherwise, the addressing- 
registers are incremented by one, and the 
byte addressed by addressing-register-1 is 
moved to the location addressed by address- 
ing-register-2. This sequence is repeated 
till the addresses of addressing-register-1l 
and register R15 are equal. 


Exchange Character with Character; the byte 
(addressed) by operand-1l is interchanged 
with the byte defined by operand-2. 


OR character; the byte (character) addressed 
by operand-1 is logically or'd with the 
8-bit immediate operand-2. 


Exclusive OR character; the byte (character) 
addressed by operand-1l is exclusively or'd 
with the 8-bit immediate operand-2. 


AND character; the byte (character) 
addressed by operand-1l is logically and'd 
with the 8-bit immediate operand-2. 


Branch Character Equal; the byte (character) 
defined or addressed by operand-1 is com- 
pared to the byte defined or addressed by 
operand-2. If the two bytes are equal, 
instruction execution branches to the loca- 
tion as defined by operand-3. Neither 
operand-1l nor operand-2 are altered. The 
arithmetic condition flag (ACF) is set on 
e,C,..ionly. 


Branch Character Unequal; branch if 
characters are not equal. 


Branch Character Low; branch if operand-1 
is less than operand-2. 


Branch Character Less than or Equal; branch 
if operand-l is less than or equal to 
operand-2. 


BCH (refer to BCE) 
BCHE (refer to BCE) 
BCN rd 5 
BCX r,l 5 
BCA r,1 5 


3.7.3 BIT INSTRUCTIONS 


SB b 2 
ZB b 2 
BBS b,l 4 
BBZ b,l 4 


Branch Character High; branch if operand-l 
is greater than operand-2. 


Branch Character High or Equal; branch if 
operand-l is greater than or equal to 
operand-2. 


Branch if Character is Numeric; branch if 
the character addressed by the first 
operand is in the range 0-9, inclusive. 


Branch if Character is hexadecimal; branch 
if the character addressed by the first 
operand is in the range 0-9 or A-F, 
inclusive. 


Branch if Character is Alphabetic; branch 
if the character addressed by the first 
operand is in the range A-Z, inclusive. 


Set Bit; the bit addressed by the operand is 
set to an on condition (one). 


Zero Bit; the bit addressed by the operand 
is set to an off condition (zero). 


Branch Bit Set; the bit addressed by 
operand-l is tested and if set (one) 
instruction execution branches to the 
location defined by operand-2. 


Branch Bit Zero; the bit addressed by 
operand-1l is tested and if not set (zero) 
instruction execution branches to the 
location defined by operand-2. 


3.7.4 DATA MOVEMENT AND ARITHMETIC INSTRUCTIONS 


All arithmetic is done on two's complement binary integers. All instructions in 
this section except the MOV set the arithmetic condition flag (ACF). 
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MOVe word to word; integer defined or 
addressed by integer-l is moved to the 
location addressed by operand-2. 


TST 


INC 


DEC 


ZERO 


ONE 


NEG 
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Test the contents of the operand and set 
the arithmetic condition flags. 


INCrement by one; the integer defined by 
the operand is incremented by one. 


INCrement word by word; the integer de- 
fined or addressed by operand-2 is added 
to the integer stored in the location 
addressed by operand-1l and the result is 
stored in the latter location. 


DECrement by one; the integer defined by 
the operand is decremented by one. 


DECrement word by word; the integer 
defined or addressed by operand-2 is 
subtracted from the integer stored in 
the location addressed by operand-1 and 
the result is stored in the latter loca- 
tion. 


ZERO word; a zero is moved to the operand 
location defined by operand-l. 


Set word ONE; an integer value of one is 
moved to the operand location defined by 
operand-l. 


NEGate word; the integer defined by 
operand-1l is negated (two's complement). 


LOAD to accumulator; the integer addressed 
by operand-1 is loaded into the 32-bit 
accumulator (DO). For half-word and word 
operands, the sign bit is extended. 
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LOAD to accumulator; the integer addressed 
by operand-1l is loaded into the 48-bit 
accumulator (FPO), and the sign bit is 
extended. 


STORE from accumulator; the contents of the 
32-bit accumulator (DO) are stored into the 
location defined by operand-l. For half- 
word and word operands, the high order bits 
are lost. 


ADD to accumulator; the integer addressed 
by operand-1l is added to the 32-bit accumu- 
lator (DO) with sign extension. 


SUB from accumulator; the integer addressed 
by operand-l is subtracted from the 32-bit 
accumulator (DO) with sign extension. 


MULtiply to accumulator; the integer 
addressed by operand-1l is multiplied by the 
contents of the 32-bit accumulator (DO). 
The resulting product is stored in the 64- 
bit accumulator extension (D1,D0), as a 
63-bit number and a duplicated sign bit. 


DIVide into the accumulator; the integer 
addressed by operand-1l is divided into the 
32-bit accumulator (DO). The answer is 
stored in DO and the integer remainder is 
stored into the accumulator extension (Dl). 


MOVe register to register; the address or 
storage register operand-1l is moved into 
the address or storage register operand-2. 


eXchange Register with Register; the 
address or storage register operand-1 is 
exchanged with the address or storage 
register operand-2. 


INCrement register; the address or storage 
register operand-1l is incremented by one. 


INCrement register by count; the address or 
storage register operand-l is incremented 
by the integer stored at the location 
addressed by operand-2. 


s,h 7 
s,t 4 
s,d 7 
DEC r 1 DECrement register; the address or storage 
Ss 3 register operand-l is decremented by one. 
DEC r,n 3 DECrement register by count; the address or 
r,h 6 storage register operand-1 is decremented by 
cyt 3 the integer stored at the location addressed 
r,d 6 by operand-2. 
s,n 4 
s,h 7 
s,t 4 
s,d 7 
LAD Y,r 6 (7) Load Absolute Difference; the absolute 
r,s 3 difference in bytes (characters) between 
s,Xr 3 the byte pointer operand-1 and the byte 
s,s 6 (1) pointer operand-2 is computed and stored 
into the lower half of the accumulator (TO). 
Please see special note following Branch 
Register Equal/Unequal instructions. 
SRA CC 3 Set Register to Address; the byte pointer 
r,h 3 operand-l is set pointing to the first 
ryt 3 byte of the functional element at the 
r,d 3 location addressed by operand-2. 
r,s 3 
ry 3 
FAR r,n 3 Flag and Attach Register; the address- 
register operand-l is attached. Normally 
n=O. If n=4 (or any value with bit 5 set), 
R15 is set to the first byte (unlinked 
format) of the frame. 
BE cae ee 7 (7) Branch Register Equal/Unequal; the address 
au r;s,1l 4 of the byte pointer operand-1l is compared 
Sry 4 to the address of the byte pointer operand- 


2. The branch is taken appropriately. 
NOTE: if the FID's of the registers are 
unequal, it is assumed that the affected 
frames are contiguously linked and the 
address computation is made on that basis; 
therefore the instruction execution may 
prove incorrect if one of the registers is 
in an unlinked format, and the other is 
not. An abort will occur displacement if 
a linked format SR is greater than 500. 
(This can be remedied by moving it toa 
register, forcing attachment, and moving 
it back.) This is unnecessary if the SR 
and register point into the same contiguous 
block. 
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Branch Register Equal/Unequal; the 6-byte 
storage register operand-1 is arithmetically 
compared to the storage register operand-2 
and the branch is made accordingly. If the 
displacement fields are not normalized, this 
may fail. See the forms above. 


Branch word Equal; the integer stored in 
the word addressed by operand-1l is compared 
arithmetically (2's complement) to the 
integer stored in the word addressed by 
operand-2. If an equal comparison is made, 
instruction branches to the location defined 
by operand-3. 


Branch word Unequal; branch if words are 
unequal. 


Branch word Low; branch if operand-1l is 
less than operand-2. 


Branch word Low or Equal; branch if operand- 
1 is less than or equal to operand-2. 


These forms of the compare instructions 
compare 3 byte fields starting 1 byte after 
each register. These allow register FIDS 
to be compared without including the flag 
byte in the compare. 


Branch word High; branch if operand-1 is 
greater than operand-2. 


Branch word High Equal; branch if operand-1l 
is greater than or equal to operand-2. 


Branch on Decrementing word Zero; the word 
at the location addressed by operand-1l is 

decremented by the integer at the location 
addressed by operand-2. If the result is 

zero, instruction branches to the location 
defined by operand-3. 


BDNZ (see BDZ) Branch on Decrementing word Not Zero; same 
as BDZ but branch on result not zero. 


BDLZ (see BDZ) Branch on Decrementing word Less than Zero; 
same as BDZ but branch on result less than 
zero. 

BDLEZ (see BDZ) Branch on Decrementing word Less than or 


Equal to Zero; same as BDZ but branch on 
result less than or equal to Zero. 


BDZ tad 6 Branch on Decrementing word Zero; same as 
d,l 6 BDZ above but decrement by one. 

BDNZ ty: 6 Branch on Decrementing word not Zero; same 
d,1 6 as BDNZ above but decrement by one. 

BDLZ t,1 6 Branch on Decrementing word Less than Zero; 
d,l 6 same as BDLZ above but decrement by one. 

BDLEZ eee i 6 Branch on Decrementing word Less than or 
d,l 6 Equal to Zero; same as BDLEZ above but 


decrement by one. 


All of the above data comparison instructions set the arithmetic condition flags. 


3.7.7 TRANSLATE INSTRUCTIONS 

MBD 10 Move Binary word to Decimal characters; 

10 This macro generates a call to the sub- 

10 routine MBDSUB (if "n" is not specified) or 

r 14 MBDNSUB (if "n" is specified), which con- 

ex 14 verts from a binary integer at the location 

r 14 addressed by operand-1l to a string of deci- 
mal ASCII characters, stored beginning from 
the location addressed by the byte-pointer 
operand-2 plus one. 


The following elements are used by the sub- 
routine and macro: DO; Dl; D2; T4; T5; R14; 
R15. A minus sign will precede the con- 
verted value if it was negative; at the 
conclusion of the instruction, the byte 
pointer operand-2 addresses the last convert- 
ed byte. MBDSUB deletes leading zeros, but 
converts at least one character; MBDNSUB 
converts at least "n" characters, padded 
with leading zeros if necessary. 


t 3 Move Decimal character to Binary word; 

,a 3 ASCII decimal to binary conversion. The 
word at the location addressed by operand-2 
is multiplied by 10, and a value (as defined 
for the MXB instruction) from the byte 
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addressed by the addressing register is 
added to it. The arithmetic condition flags 
are not reset, and arithmetic overflow 
cannot be detected. 


Move Binary word to heXadecimal characters; 
Binary to ASCII hex conversion. 

This instruction assumes that the least 
Significant byte of the accumulator (HO) has 
a parameter (see MBX/MBXN macro). The four 
low order bits contain a digit count, 
specifying the maximum number of ASCII 
digits to be converted. As each digit is 
converted, the addressing register is incre- 
mented by one, and the converted ASCII 
character is stored in the location address- 
ed by the addressing register. The format 
of HO at the conclusion of this instruction 
is unpredictable. If the digit count in 

HO exceeds the field defined by operand-l, 
no operation is performed. 


Move Binary word to heXadecimal characters; 
This macro expands as a LOAD of the first 
operand (MBX) or the first operand +x'80' 
(MBXN), and a primitive. The MBX macro, 
therefore, causes conversion from binary to 
ASCII hex, with only significant digits (to 
a maximum of "n") converted. The MBXN macro 
causes conversion as above, but always 
converts "n" digits, with leading zeros if 
necessary. The addressing register defined 
by the third operand is incremented before 
each byte converted. 


Move heXadecimal characters to Binary word; 
ASCII hex to binary conversion. 

The field defined by operand-2 is shifted 
left 4 bits, and the value defined below, 
from the byte addressed by the addressing 
register, is added to the field: The 4-bit 
value from bits 3-0 of the byte (bits 
numbered right to left), plus nine times 
bit 6. The arithmetic condition flags are 
not reset by this instruction, and arithme- 
tic overflow cannot be detected. 


Branch; 
branch to location defined, in the current 
frame, defined by label "1". 
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BSL 


BSLI 


ENT 


ENTI 


BSL* 


ENT * 


ct 


ct 


& 


(8) 


(8) 


Branch and Stack Location; 

Subroutine call to mode defined by mode-ID 
"m" or to local label "1". 

The location of the instruction following 
the BSL, minus one, is saved in the retum 
stack, and the next instruction executed is 
that defined by the operand. The return 
stack level is increased by one; if the call 
causes the returm stack level to exceed 

its maximum value, the stack pointers are 
reset to the beginning and a trap to the 
DEBUG mode is executed. 


Branch and Stack Location Indirect; 
Subroutine call indirect; this instruction 
assumes that the lower half of the accumu- 
lator, TO contains a mode-ID (see BSL* 
macro). The 16-bit mode-ID contained in 

TO defines the location of the next instruc- 
tion that is to be executed, after the 
location-1l of the instruction following the 
TCI is saved in the return stack. 


ReTuXn ; 

Return to subroutine called. The last entry 
in the retum stack defines the location of 
the next instruction to be executed; the 
return stack level is decremented by one. 

If the return stack is empty, a trap to the 
DEBUG mode is executed. 


ExterNal Transfer; 
Branch to location defined by mode-ID"m". 


ExterNal Transfer Indirect; 

Enter mode indirect: this instruction 
assumes that TO contains a 16-bit mode-ID 
(see ENT* macro), which defines the next 
instruction to be executed. 


Branch and Stack Location indirect; 
subroutine call to mode defined by the 
mode-ID contained in the word addressed by 
operand-l. The 16 bit mode-ID is loaded 
into the accumulator, and a BSLI instruc- 
tion is executed. 


ExterNal Transfer indirect; branch to 
external location defined by the mode-ID 
contained in the word addressed by operand-1l. 
The 16 bit mode-ID is loaded into the 
accumulator, and an ENTI instruction is 
executed. 


3.7.9 1/0 AND CONTROL INSTRUCTION 


mM, 3 I/O Instruction Input; this instruction 
is used to set up block transfer starting 
and ending addresses and start input for 
peripheral devices whose device addresses 
are in the range O through X'F' (15). This 
instruction causes an MCAL instruction to 
entry point 8 in the Monitor. Register r 
points to the start of the input buffer; 
n, is a 3-bit order code; n, is a 4-bit 
device address. Refer to Section 2.7 for 
details. 


IO Yr 
I my 


n 3 I/O instruction Output; as above this 
instruction controls output to peripheral 
devices. 


IOO r,n 


READ Yr 2 A byte from the byte-I/O buffer in the PIB 
is stored at the location addressed by the 
addressing register. If the buffer is empty, 
or if there is data in the byte I/O buffer 
yet to be output to the byte I/O device, the 
process executing the READ instruction will 
enter a quiescent state till data from the 
byte input device causes a re-activation. 


WRITE r 2 The byte addressed by the addressing register 
is moved into the byte I/O buffer of the PIB. 
If the buffer is empty, the byte is also 
output immediately to the byte I/O device. 

If the buffer is full, the process executing 
the write will enter a quiescent state till 
the byte output device has accepted the 
data from the buffer, and causes a re- 
activation. Execution of this instruction 
causes a loss of any input data in the byte 
I/O buffer, and inhibits any further data 
input from the byte I/O device. 


n 3 Some standard calls are provided for 
functions which can only be performed in 
monitor code. These include: 

MCAL r,5,1l1 (corelock) 

MCAL r,6,11 (unlock) 


MCAL ron 


ROM 3 Process releases the remainder of its time 
quantum to the monitor. Equivalent to: 
MCAL 0,0,9. 


NOP 


3.7.10 ASSEMBLER DIRECTIVES 


at 


ADDR 


AR 


CMNT 


DEF'M 


DEFk 


n,n 
1 
r 
n 
1 
n 
pare 
rn 
n,l 
n,n 
Yr 5.) 
r,n 
jq\geed e 
n,n 


r,*[string]| 
n,*[string]| 


register, or output (OB) from the location 
addressed by the addressing register. I/O 
pointers must be set up initially with an 
IOO instruction. 


No OPeration is performed by this instruc- 
tion. 


Defines the local symbol "1" as a storage 
register in unlinked format. The displace- 
ment is defined by the first operand. The 
FID is defined by the second operand. 


Defines the local symbol "1" as an address 
register with a value defined by the oper- 
and. 


Defines the local symbol "1" (if present) as 
a character (CHR) half-word (HTLY), word 
(TLY) , double-word (DTLY) or S/R (SR) 
respectively; object code of the appropriate 
length and value defined by the operand is 
assembled, except for the SR opcode, which 
ignores the operand field. 


Comment; the contents of this statement are 
treated as commentary, and ignored by the 
assembler. Note: A label field entry is 
allowable. 


Defines the local symbol "1" to be of type 
m; a mode-ID with entry point defined by 
the first operand and FID defined by the 
second operand. 


Defines the local symbol "1" to be of type 
"k" (where k=b,c,d,h,1l,s,t), with base 
register defined by the first operand and 
displacement defined by the second operand. 


When the assembler location counter "*" is 
used as the second operand, an optional 
string can be used, with the following 
format: 


string =n tn,] or string = tn 


al 3 


If n. is specified after the *, instructions 
referencing 1 will obtain a displacement (D 
field) appropriate for an operand length of 
n. bits. Values of n, = 1,8, and 16 are 


valid, with a default of nq = 8. 
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Example: 


LABEL1 


Example: 


LABEL2 


ORG 
DEFT 
STORE 


ORG 
DEFB 
SB 


DEFK 


DEFTU 


DEFT L 


DEFDL 


10 
1; *16 
LABEL1 


If +n, 1s specified after the ™, the 
éfrect ive displacement will be adjusted 
n, bits, bytes or double-bytes, depending 


on whether n, = 1,8 or 16. 


produces the object code Al10559 correspond- 
ing to the instruction: 


opcode-l register D L opcode -2 


with a displacement (D field) of 5 words 
relative to the byte addressed by register l. 


produces the object code 810F corresponding 
to the instruction. 


opcode register D 


1000 0001 00001111 


with a displacement of 15 bits relative to 
the byte addressed by register l. 


Defines local symbol "1" to be of type "k" 
(where k=b,c,d,h,1l,s,t) with base register 
and displacement defined by the operand. 


Defines local symbol "1" to be of type "“t" 
with base register and displacement defined 
by the upper (left-most) tally of the 
operand. 


Defines local symbol "1" to be of type "t" 
with base register and displacement defined 
by the lower (right-most) tally of the 
operand. 


Defines local symbol "1" to be of type "t" 
with base register and displacement defined 
by the lower double tally of the operand. 


1 EQU c Equates the local label "1" to the symbol or 
h literal value of the operand. 
t 
d 
S 
1 
n 
FRAME n Must be the first assembled statement ina 
mode that is to be loaded; defines the 
frame on which the object code is to be 
loaded. 
ORG 1 Resets the location counter to value defined 
n by the operand. This statement may have a 
label field entry. 
TEXT NS eee Assembles binary equivalent of character 
OMe ga strings (enclosed in quotes and preceded by 


a 'C') or hexadecimal values. 


Any number 


and combination of C and X literals sepa- 


rated by commas is permitted. 


3.7.11 ADDRESS REGISTER USAGE 


In some, a displacement is added to the contents of the address register to form an 
effective address. The length of the operand(s) is (are) encoded in the instruction. 


For REAL instructions allowing an address register r in the operand field, the 
displacement relative to the register and the operand length can be specified 


using the following formats: 


Displacement Relative 


Format to Address Register n 
Rn O bytes 

Rn ;Bm m bits 

Rn ; Cm m bytes 

Rn, Hm m bytes 

Rn ;Tm 2*m bytes 

Rn ; Dm 4*m bytes 
Rm;Sm €*m bytes 


Operand 
Length 


1 byte 
1 bit 


1 byte 


2 bytes 
4 bytes 


6 bytes 


Example: 


MCC RO;C15,R15 Move low order byte of the Accumulator to the 
byte addressed by RL5. 


Example: 
SB R5 ; BO Set bit 0 of the byte addressed by R5. 
Example: 
MOV MBASE, R1LO;D4 Move double-word MBASE to the double-word 
starting 16 bytes past the byte addressed 
by RIO. 


3.7.12 REAL INSTRUCTION SIDE EFFECTS 


Many of the REAL opcodes use functional elements not specified as operands for 
execution. Those instructions are so footnoted in the previous listing; the fol- 
lowing explanation of the various footnotes describes the state of these implied 
elements at the conclusion of instruction execution: 


(1) R15 points to byte addressed by operand-2. 


(2) RlL4 points to byte addressed by operand-1l, RL5 points to byte addressed by 
operand-2. 


(3) R15 points to byte addressed by operand-l. 


(4) R15 points one prior to last byte moved and TO contains number of bytes 
moved into last frame. 


(5) Contents of TO are unpredictable. 

(6) DO contains the integer moved or compared. 
(7) SYSRO contains the byte pointer operand-1l. 
(8) TO contains the 16-bit mode-ID; Tl is zero. 


(9) HO contains the number of digits converted into the last frame, if its high 
order bit (BO) is set; otherwise original value. 


3.8 ASSEMBLER TABLES 


The REAL Assembler is completely table-driven and is therefore both powerful and 
flexible in its definition of mnemonics. In addition, the assembler accesses a 
permanent symbol table. which allows the predefinition of a set of symbols used by 
all assemblies. Symbols defined in the source mode are placed in a temporary 
(local) symbol table, and such entries override corresponding entries in the perma- 
nent symbol file. It should be noted that forward references to local symbols that 
match entries in the permanent symbol table will, in general, cause assembly errors. 
Therefore, such overriding symbol definitions must precede the first reference to 


them. 


At the start of the assembly process, the assembler searches the user's Master Dic- 
tionary (M/DICT) for the following file definitions: 


PSYM - Permanent symbol table. 
TSYM - Temporary symbol table. 
OSYM - Operation-code symbol table. 


The assembly will abort if any of these file-definitions are missing, with a mes- 
sage indicating the one that was not found. The temporary symbol table is initial- 
ized before the assembly starts. TSYM is a permanently defined file on a user's 
account. It can be examined at the conclusion of the assembly. Although TSYM has 
a lock to limit its use to one person on an account during an assembly, entries 
fromoneassembly disappear when another starts. TSYM is also used by the FIX-FILE- 
ERRORS verb. 


3.8.1 TSYM/PSYM TABLE ENTRY FORMATS 


The item format of the entries in the PSYM and TSYM files is as follows (entries 
are in character form): 


Item-ID: Symbo1l-name 


Line l : Symbol-code (single character - see below) 
Line 2 : Symbol-value (hexadecimal location or displacement) 
Line 3 : Base-register value (single hexadecimal digit) 


© YMBOL- CODES 


The symbol-code is a single character code that defines the type of the symbol, it 
1s used in the operation code lookup to determine legal operands, and to flag un- 
defined or multi-defined labels, etc. 


Symbo1-Code Description - Symbol Type Unit of Displacement 
B Bit Bits 
C Character Register Bytes 
D Double-Word (4-byte) Words 
H Half-Word (1l-byte) Bytes 
L Local Symbol, Defined Bytes 
M Mode-ID Unde fined 
N Literal Value Bytes 
R Address Register Unde fined 
S Storage Register (6 bytes) Words 
T Word (2 bytes) Words 
U Local Symbol, Undefined Value=0 
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3.8.2 OSYM TABLE-LOOKUP TECHNIQUE 


All REAL mnemonic operation codes are stored in the OSYM file. An entry in this 
table may be either (1) the REAL mnemonic for the instruction (basic opcode), or 
(2) the REAL mnemonic suffixed by the symbol type-codes of all the operand field 
entries. The purpose of the suffixing is (1) to provide for the separate handling 
of REAL memonics with variable operand field entries; (2) to provide for a check 
on the number and type of operand field entries. As an example, the basic REAL 
mnemonic for "move register to register" is MOV, but it has four different object 
code expansions, depending on whether the registers involved are address (R) or 
storage-type (S). To allow for all cases, there are four entries in the OSYM file: 
MOVRR, MOVRS, MOVSR and MOVSS. The assembler will attempt to look up the basic 
opcode first, and, if it is not found, a second attempt will be made with the 
basic opcode suffixed as described above. 


3.8.3 TSYM TABLE ENTRY SETUP 

As the assembler goes through the "suffixing" technique described above, it neces- 
sarily looks up each non-literal operand in the TSYM and PSYM files, in that order. 
If found, the type-code can be suffixed to the basic opcode. If no entry is found 
in the TSYM and PSYM files, the assembler then sets up an entry in the TSYM file 
with type "U" (undefined), and location zero. This has an important ramification 
with regard to literal generation. 


3.9 ASSEMBLER OUTPUT 


The assembler output consists of (1) macro statement expansions; (2) error messages 
and (3) generated object code, all appended to the original source statement. 


A user-input source statement is of the format: 
Source Statement (AM) 

On output, the format is as follows: 
Source Statement (SVM) location object-code (AM) 


where ‘location’ is a 3-digit hexadecimal field, and the ‘object code" is in hexa- 
decimal. 


Error messages are appended to the source statement as the assembler encounters 
errors; the messages axe appended in the format: 


.. (VM) * message.... 
Messages may precede or follow the object code. 


Macro expansions resemble source statements in terms of source statement, errors 
and object code, and are of the format: 


Source Statement (VM) macro statement (SVM) location object-code (VM)... (AM). 


Note that regardless of what the assembler appends to the original source statement, 
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the delimiters surrounding the entire statement remain, unchanged; this ensures 
proper source statement input on subsequent assemblies. 


3.10 ASSEMBLER ERROR MESSAGES 


*UNDEF: Symbol, Symbol 


iG aaa 


*MULT-IDEF 
*REF: UNDEF 
LBL REQD 
*OPCD? 
*OPRWD REQD 


*ILGL OPCD: opcode 


*OPRWD RNG 


*TRUNC. 


*OPRND DEF 


Undefined symbols at end of pass 1 (Message 
at end-of-mode). 


Label-field entry was previously defined. 
Reference to undefined symbol. 

Required label-field missing. 
Opcode-field entry missing. 

Required operand-field entry missing. 


Either the opcode was illegal, or the 
operand types were illegal for the opcode. 


The range of the operand-field entry is 
illegal. 


Object code truncation may be due to: branch 
out-of-range; TSYM/PSYM table entry error; 
specification error in the GEN primitive. 


The operand-field entry is improperly 
defined e.g.: non-hexadecimal character 
in a hexadecimal string. 


The following are errors in the OSYM-table entry specifications. 


*FRMT. A-FIELD 
*FRMT. B-FIELD 


*OPCD TYP: 


*MACRO DEF? 


Error in A- or B-field specification. 
Opcode type not a P/Q/M, or primitive type 
was illegal. 


Error in the macro specification, 
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3.11 


ADDR 


BCE 
BCH (E) 
BCL (E) 
BCN 
BCU 
BCX 
BDLEZ 
BDLZ 
BNDZ 
BDZ 


BE (3) 


BL (Fr) (3) 


BH (F) 
BSL 
BSLI 
BU (3) 
CHR 


CMNT 


REAL INSTRUCTION SUMMARY 


defines address 


add to 


accumulator 


and variables 


defines address register 


branch 


branch 


branch 


branch 


branch 


branch 


branch 


branch 


branch 


branch 


branch 


branch 


branch 


branch 


unconditional 

on bit set 

on bit zero 

on character alphabetic 

on character equal 
character high (or equal) 
character low (or equal) 
on character numeric 

on character unequal 

on hexadecimal character 
decrementing word < = zero 
decrementing word < zero 
decrementing word not zero 


decrementing word zero 


brancn, register/word equal 


branch word < (or=) 


branch word < (or=) 


branch 


branch and stack location indirect 


branch, 


define 


comment 


and stack location 


register/word unequal 


character 


PAGE 


DEC 
DEFDL 
DEFk 
DEFM 
DEF TL 
DEF TU 
DIV 
DTLY 
ENT (I) 
EQU 


FAR 


HTLY 


INC 


decrement 

define as lower double tally 
define as b,c,d,h,l,s, or t 
define as m 

define as lower tally 
define as upper tally 
divide accumulator 

define as doubleword 
external transfer (indirect) 
equate 

flag and attach register 
define frame 

define as halfword 

input byte 

increment 

I/O instruction input 

I/O instruction output 

load absolute difference 


load accumulator 


move binary to decimal (n char) 


move binary to hex (n char) 
monitor call 


move character to character 


move character to incrementing char 


move decimal to binary 


PAGE 


3-14, 3-15, 
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MIC 
MII 
MLID 
MIIR 
MIIT 
MOV 
MUL 
MXB 
NEG 
NOP 
OB 
ONE 
OR 
ORG 
READ 
ROM 
RTN 
SB 
SCD 
SR 
SRA 
STORE 
SUB 


TEXT 


move incrementing char to char 


move inc char to inc char 


move inc char to inc char 


move inc char to inc char 


move inc char to inc char 


move word to word 
multiply accumulator 
move hex to binary 
negate 

no op 

output byte 

set word equal to one 
logical or 

origin 

read 

return time quantum 
return 


set bit 


(delimiter) 


(register) 


(word) 


scan characters to delimiter 


define as storage register 


set register to address 


store accumulator 


subtract from accumulator 


message 


PAGE 


3-13 ’ 


3-14, 


3=15 


PAGE 


TLY Gefine as word 3-22 
TST test (set condition flags) 3-14 
WRITE write 3-21 
XCC exchange character with character 3-12 
XOR logical exclusive or 3-12 
XRR exchange register with register 3-15 
ZB zero bit 3-13 
ZERO zero word 3-14 


3.12 PROGRAMMING CONSIDERATIONS AND CONVENTIONS 
3.12.1 REENTRANCY 


In practically all cases, the system software is reentrant, that is, the same copy 
of the object code may by used simultaneously by more than one process. For this 
reason, no storage intemal to the program is utilized; instead the storage space 
directly associated with a process is used; this is part of the process' Primary, 
Secondary, Debug (or Tertiary) and Quaternary Control blocks. The Primary Control 
Block (PCB) is addressed via address register zero, the SCB via register two. The 
Debug Control Block is used solely by the DEBUG processor and should not be used 
by any other programs. The Quaternary Control Block has no register addressing it; 
it is used by some system software (magnetic tape routines, for example, which 
temporarily set up a register pointing to it); its used is reserved for future 
software extensions. 


A user program may utilize storage internal to the program if it is to be non- 
reentrant. Often it will be found that the functional elements defined in the PSYM 
will be sufficient. 


In some cases it may be required to set up a program to be executable by only one 
process at a time; that is, the code is "locked" while a process is uSing it, and 
any other process attempting to execute the same code waits for the first process 
to “unlock" it. The following sequence is typical: 


ORG 0 
TEXT xX'OL1' INITIAL CONDITION FOR LOCK BYTE (NOTE USAGE 
CMNT OF STORAGE INTERNAL TO PROGRAM) 
LOCK MCC xX'OO',R2 SET "LOCKED" CODE AT R2 

XCC  =R2,R1 EXCHANGE BYTES AT R2 AND R1 
BCE R2,X'0O1',CONTINUE OK TO CONTINUE; PROGRAM LOCKED 
ROM WAIT (RELEASE QUANTUM) 
B LOCK TRY AGAIN 
: \ 

UNLOCK MCC X'O1',RI1 UNLOCK PROGRAM 
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3.12.2 WORK-SPACES OR BUFFERS 


There is a set of work-spaces, or buffer areas, that is predefined and available 
to each process. If the system conventions with regard to these buffers are 
maintained, they should prove adequate for the majority of assembly programming. 
There are three "linked" buffers, or work-spaces, of equal size, symbolically 
called the IS, the OS, and the HS. These are at least 3000 bytes in length each; 
more space for each area can be assigned to a process at LOGON time. There are 
five other work-spaces, the BMS, CS, AF, IB and the OB, which may vary between 50 
and 140 bytes in length and are all in one frame. There is the TS, a one-frame 
unlinked work-space of 512 bytes, and the PROC work-space, 2000 bytes in length, 
which is used normally by the PROC processor alone; finally, there are four addi- 
tional frames (CPB+28 through PCB+31) that are unused by the system, subroutines, 
through they are used by some of the processors. 


Each work-space is defined by a beginning pointer and an ending pointer, both of 
which are storage registers (S/R's). When the process is at the TCL level, all 
these pointers have been set to an initial condition. At other levels of process- 
ing, the beginning pointers should normally be maintained; the ending pointers may 
be moved by system or user routines. The address registers (A/R's) that are named 
after these work-spaces (IS,OS,AF,etc.) need not necessarily be maintained within 
their associated work-spaces; however, specific system routines may reset the 

A/R to its associated work-space. The table below discusses these points for each 
work-space. Note that, conventionally, a buffer beginning pointer addresses one 
byte before the actual location where the data starts. This is because data is 
usually moved into a buffer using one of the "moving incrementing" type of instruc- 
tions, which increment the A/R before the data movement. 


Location 
Work- (Offset 
Space From PCB Size Linked? Remarks 
BMS 4 50 No Normally contains an item-ID when 
(disp.=0) communicating with the disc file I/O 
routines. Typically, the item-ID is 
copied to the BMS area, starting at 
BMSBEG+t1. BMSBEG may be moved to 
point within any scratch area. BMSEND 
normally points to the last byte of the 
item-ID. BMS (A/R) is freely usable 
except when explicitly or implicitly 
calling a disc file I/O routine. 
AF 4 50 No This work-space is not used by any 
(disp.=50) system subroutine, although the AF 
A/R is used as a scratch register. 
CS 4 100 No As above. 
(disp.=100) 
IB 4 <140 No Is used by the terminal input routines 
(disp.=200) to read data. IBBEG may be moved to 


point within any scratch area before 
use. IBEND conventionally points to 
the logical end of data. IB A/R is 
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Work- 
Space 


OB 


TS 


PROC 


HS 


IS 
OS 


Location 


(Offset 

From PCB Size 
4 140 

(disp.=201 

+ IBSIZE) 

5 511 
6-9 2000 
10-15 3000+ 
16-21 3000+ 

22-27 


Linked? 


No 


No 


Yes 


yes 


Yes 


Remarks 


freely usable except when explicitly 
or implicitly calling a terminal input 
routine. 


Is used by the terminal output routines 
to write data. OBBEG & OBEND should 
not be altered; they always point to 
the beginning and end of the OB area. 
OB A/R conventionally points one 
before the next available location in 
the OB buffer. 


Used for conversions. 


Used exclusively by the PROC 
processor for working storage. User- 
exits from Proc's may change pointers 
in this area. 


Used as a means of passing messages to 
the WRAPUP processor at the conclusion 
of a TCL statement. May be used as a 
scratch area if there is no conflict 
with the WRAPUP history-string formats. 
HSBEG should not be altered; 

HSEND conventionally points one byte 
before the next available location 

in the buffer (initial condition is 
HSBEG=HSEND) . 


These work-spaces are used inter- 
changeably by some system routines 
Since they are of the same size (and 
are equal in size to the HS). Specific 
usage is noted under the various 

system routines. 


ISBEG and OSBEG should not be altered, 
but may be interchanged if necessary. 


Initial condition is that ISEND and 
OSEND point 3000 bytes past ISBEG and 
OSBEG respectively (not at the true 
end if additional work-space is assign- 
ed at LOGON time). 


IS and OS A/R's are freely usable 
except when calling system subroutines 
that use them. 


Location 


Work- (Offset 
Space From PCB) Size Linked? Remarks 
28-31 Used for compilation and execution 


of the RPG programs, and by the 
DATA/BASIC Debugger. 

3.12.3 DEFINING A SEPARATE BUFFER AREA 

If it is required to define a buffer area that is unique to a process, the unused 


frames PCB+28 through PCB+3l may be used. The following sequence of instructions 
is one way of setting up an A/R to a scratch buffer: 


MOV RO,RL5 


ZERO R3WA SET R3 "DETACHED" 
ZERO R3DSP INITIALIZE DISPLACEMENT FIELD 
INC R3FID,29 SET R15 to PCB+29 


Register 3 can now be used to reference buffer areas, or functional elements that 
are addressed relative to R3. None of the system subroutines use R3, so that a 
program has to set up R3 only once in the above manner. However, exit to TCL via 
WRAPUP will reset R3 to PCB8+3. 


3.12.4 USAGE OF XMODE 


In several cases, the multiple-byte move instructions can be used (say, when 
building a table) even when it is not known whether there is enough room in the 
current linked frame set to hold the data. Normally, if the end of a linked frame 
set is reached, DEBUG is entered with a "forward link zero" abort condition. 
However, the tally XMODE may be set up to contain a mode-ID of a user-written sub- 
routine that will gain control under such a condition. This subroutine can then 
process the end-of-frame condition, and, by executing a 'RTN’ instruction, normal 
processing will continue. Instructions that can be handled by this scheme are: 
INC register; MCI; MIC; MII; MIID; MIIT; SCD; MIIR. Care should be taken in the 
case of MIIR to save register RL5 in the subroutine. 


Example: 
MOV XXX, XMODE SET UP XMODE FOR NEXT INSTRUCTION 
MII R12,R13,SR4 COPY FROM R12 TO R13, TILL R1L2=SR4 


ZERO XMODE 


3-35 


Example: (continued) 


{XXX EQU . ENTRY POINT FOR SUBROUTINE 
MOV RL5, SR20 SAVE RL5 
SRA R15, ACF SET TO SAVE REGISTER NUMBER 
BCE X'OD',R15,OK ENSURE TRAP WAS DUE TO R13 
MOV QO, XMODE PREVENT DEBUG RE-ENTRY 
ENT 5,DBl NO! : REENTER DEBUG TO PRINT 
CMNT "FORWARD LINK ZERO" MESSAGE 
x 
OK MOV 500, R1L3DSP RESET DISPLACEMENT FIELD OF R13, SINCE 
CMNT FIRMWARE HAS LEFT IT IN A STRANGE STATE. 
* HANDLE END-OF-FRAME CONDITION HERE 
MOV RL3FID, RECORD SET UP INTERFACE FOR ATTOVF 
BSL ATTOVF GET ANOTHER FRAME FROM OVERFLOW 
MOV SR20,R1L5 RESTORE RL5 
RTN RETURN TO CONTINUE EXECUTION OF MII 
INSTRUCTION. 


3.12.5 INITIAL CONDITIONS 


At any level in the system, the following elements are assumed to be set up; they 
should not be altered by any programs: 


MBASE D Contain base-FID, modulo and separation of 
MMOD T the M/DICT associated with the process. 
MS EP T 


3.12.6 SPECIAL PSYM ELEMENTS 


Certain elements have a "global" significance to the system in addition to those 
described above; they are: 


Functional Element Description 
Arithmetic condition These are altered by any arithmetic instruction, 
flags: as well as the branch instructions that compare 


two relatively addressed fields. 


ZROBIT Set if result of operation is zero (equal). 

NEGBIT Set if result of operation is negative. 

OVFBIT Set if arithmetic overflow resulted. 

HO through H7 Overlays accumulator and extension; H7 is 
high-order byte of Dl; HO is low-order byte 
of DO. 


Functional Element Description 


INHIBIT If set, the "BREAK" key on the terminal is 
inhibited; used by processes that should not 
be interrupted. 


OVRFLCTR See WRAPUP for usage. 


RS CWA Returm-stack current word address; contains 
address one byte past current entry in stack; 
stack is null if RSCWA=X'184'. 


SYSPRIV1 If set indicates system privileges, level one. 


SYSPRIV2 If set in addition to SYSPRIV1, indicates 
system privileges, level two. 


TO through T3 Overlays accumulator and extension. 


XMODE This tally may be set up to a mode-ID of a 
subroutine that is to gain control when a 
"forward link zero" condition occurs. 


WMODE If WMODE is non-zero on any entry to WRAPUP, 
a BSL* through WMODE will be executed at the 
termination of history-string processing, 
before 1) the print-spool-files are closed, 
and 2) the overflow chain is released. The 
BSL* instruction will be executed whether 
RMODE is zero or not. This feature may be 
used by processors that require special 
WRAPUP processing. 


USER Tally 'USER' in the PCB has global significance: 
Tally=0 Indicates not logged on. 
Tally=-1 Indicates the spooler 
process. 
Tally=1 Indicates the file restore 
process. 
Tally=2 Indicates a process which 


must go to LOGOFF after 
WRAPUP processing. 


Other values indicate normal logged 
on processes. 


SECTION 4 


THE INTERACTIVE DEBUGGER (DEBUG) 


The Interactive Debugger (DEBUG) provides a means for monitoring and controlling 
program execution. For all Reality users, DEBUG has the ability to turn the print 
off at the terminal, and to terminate program execution. 


The use of the extended facilities of DEBUG (other than turning the terminal print- 
ing on and off, and terminating program execution) require system privileges level 
two. If the user has such privileges, he may control program execution by the in- 
sertion of break-points in the program, and by executing specific DEBUG commands. 
The user may also trace execution by displaying data at specific locations. DEBUG 
additionally allows the user to display data throughout the virtual memory of the 


system. 


Thus (for users with system privileges level two) DEBUG is ideally suited for the 
checkout phase of assembly language programming. 


4.1 ENTERING DEBUG 


DEBUG is entered voluntarily by depressing the BREAK key on the terminal (INT key 
on some terminals). DEBUG will then display the location of the execution inter- 
ruption point, followed by the DEBUG prompt character; the DEBUG prompt character 
is the exclamation mark (!). 


DEBUG is entered involuntarily when a hardware trap condition occurs. In this case, 
DEBUG will display a message indicating the nature of the error causing the trap 
(see Section 4.6), followed by the location at which the trap occurred, followed 


by the DEBUG prompt character (!). 


When the DEBUG prompt character is displayed, the user enters an appropriate DEBUG 
Control Command or DEBUG Data Display Command. 


4.2 THE DEBUG CONTROL CCMMANDS 
4.2.1 CONTROL COMMAND SYNTAX 


Prior to describing the actual DEBUG Control Commands, it is necessary to define 
the terms "address" and "indirect-—address”". 


ADDRESS 


An "address" references a byte in virtual memory. An "address" consists of a frame- 
ID (FID) and an offset byte displacement within the frame. The FID and/or displace- 
ment may be either in decimal or hexadecimal. The general forms of an "address" 

are shown below ("f" represents the FID value, and "d" represents the displacement 


value). 


Address Description 
£,da FID in decimal; displacement in decimal. 


Address Description 


fsa FID in decimal; displacement in hexadicimal. 

Ps a S| FID in hexadecimal; displacement in decimal. 

ae cares | FID in hexadecimal; displacement in hexadecimal. 
.d Displacement in hexadecimal. 

da Displacement in decimal. 


If the FID value is omitted, then the PCB FID is used as a default value. The dis- 
placement must be in the range 0 < d < 512. 


As a general example, the following "addresses" are equivalent: 


12536 
12,60 
-Ce3€ 
-C,60 


INDI RECT-ADDRESS 


An "indirect-address" references a byte in the virtual memory by specifying an 
Address Register which therefore indirectly references a particular byte. Address 
Registers zero and one cannot be used in this manner. The "indirect-address" spec- 
ification takes the following forms. 


Indirect Address Description 
Rr Specifies Address Register "r" (where "r" is a 


decimal value in the range 0 < r < 15). 


R.xr Specifies Address Register "r" (where "r" is a 
hexadecimal value in the range 0 < r < F). 


Note that "indirect-addresses" have an implied displacement within the FID that 
the Address Register is pointing to; this displacement depends on whether the re- 
gister is in the "linked" or the "unlinked" format (see Section 2). 


4.2.2 DEBUG CONTROL TABLES 


DEBUG maintains three tables which may be manipulated by the DEBUG commands: the 
Break Table, the Trace Table, and the Indirect Trace Table. If there are entries 
in the Break Table, the address of every instruction is compared with the address 
in the Break Table and a break occurs if there is a match. If there are entries 
in the Trace or Indirect Trace Tables, then the data pointed at by the entries are 
printed whenever a break message is printed (see Section 4.4). Up to four entries 
can be placed in each of these tables. 


4.2.3 CONTROL COMMANDS 


The following is a list of the DEBUG Control Commands. Users wtthout system pri- 
Vileges level two may only use the P, G, END, and OFF commands. 


General Form Description 


A address 
B address 
D 
En 


END 


G 
or 
line- feed 


G address 


H 


K address 


Nn 


OFF 


Displays the address of an element. 
This command adds the "address" to the Break Table. 
This command displays the Break Table and Trace Table. 


This command sets the Execution Counter to "n", 
where "n" is a positive integer < 250. Setting 
the Execution Counter causes a break to occur 
after the execution of every "n" instruction. 
The command "E 0" or simply "E" turns off the 
Execution Counter. 


This command terminates execution and returns 
to TCL. "END (carriage-returm)" re-initializes 
the break and trace tables, whereas "END (line- 
feed)" preserves the tables. 


This command causes resumption of process execu- 
tion from the point of interruption. G cannot 
be used if a process ABORT condition caused the 
entry to DEBUG. 


This command causes resumption of execution at 
the specified "address". 


"HUSHES" terminal output (this is an on/off toggle). 


This command "kills" the break-point (i.e., de- 
letes "address" from Break Table). "K" alone 
kills all break=-points. 


Display frame links. 


Each entry of an M command switches (toggles) 
"Modal-Break" status ON and OFF. When "Modal- 
Break" status is ON, a break in execution will 
occur upon all intermodal transfers (i.e., BSL 
or ENT instructions; see Section 3.7.8). The 
message "ON" is displayed when the M command 
switches "Model-Break" on; the message "OFF" 

is displayed when "Modal-Break" is switched off. 


This command sets the Break-Point Counter to 
"n" (i.e., inhibits traps until "n" breaks have 
occurred). "N" is equivalent to "N O". 


This command logs the user off of the system. 


Each entry of a P command switches (toggles) 
from print suppression to print non-suppression. 
The message OFF is displayed if output is cur- 
rently suppressed. The message ON is displayed 
if output is resumed. 


General Form Description 


A Each entry of a T command switches (toggles) 
suppression of display of entries in the trace 
tables. 


T format address; window This command adds the "address" to the Trace 
Table with the given display format and window, 
if present. Default display is hexadecimal, 4 
bytes. No negative displacement for windows is 
allowed. 


T format/symbol; window This command adds the address referenced by the 
"symbol" to the Trace Table with the specified 
or default format and window. Default format and 
window depends on "symbol" type. 


T format indirect-address; This command adds the "indirect-address" to the 
window Indirect Trace Table with the specified or de- 
fault format and window. 


T format * symbol; window This command adds the address referenced in- 
directly by the "symbol" (A/R or S/R) to the In- 
direct Trace Table with the specified or default 
format and window. 


U address This command deletes the “address" from the Trace 
Table. 
U indirect-address This command deletes the “indirect-address" 


from the Indirect Trace Table. 


U This commands deletes all addresses and indirect- 
addresses from the trace tables. 


/¢ Symbolic displays of elements. 


4.3 THE DEBUG DATA DISPLAY COMMANDS 
4.3.1 WINDOWS 


Before describing the Data Display commands, it is necessary to define the concept 
known as a "window." 


A "window" specifies the number of bytes to display (m), and optionally the nega- 
tive displacement (n) from the "address" or "indirect-address" from which to start 
the display. If n is not specified, it is assumed to be zero. The general forms 
of the "window" are shown below. 


Window Description 
7m Number of bytes in decimal. 


Window Description 


7m Number of bytes in hexadecimal. 

;n,m Displacement in decimal; number of bytes in decimal. 

;n.m Displacement in decimal; number of bytes in hexadecimal. 
;.n,m Displacement in hexadecimal; number of bytes in decimal. 
;.n.m Displacement in hexadecimal; number of bytes in hexadecimal. 


The default "window" is 0,4 (no negative displacement, display four bytes). 


4.3.2 DATA DISPLAY COMMANDS 


The following is a list of the DEBUG Data Display commands. 


General Form 
Caddress ; window 


Cindirect-address ;window 


Xaddress ;window 


Xindirect-address;window 


Iaddress ; window 


Iindirect-address ;window 


Format/symbol ; window 


Format*symbol ; window 


Description 


These commands display specified data in 
character format. 


These commands display specified data 
in hexadecimal format. 


These commands display specified data 
in integer format. ("window" must be <6) 


This command displays data referenced by 
"symbol" in given or default format and 
window size. 


This command displays data referenced 
indirectly by "symbol" in given or de- 
fault format and window size. 


This command displays the address at 
which program execution was interrupted. 


This command displays the address refe- 
renced by "symbol". 


This command displays the address refe- 
renced indirectly by "symbol". 


This command displays the link fields of 
frame "fid". 


General Form Description 


L* symbol This command displays the link fields 
of the frame referenced indirectly by 


"symbol". 


Immediately after the data at the specified address has been displayed, DEBUG 
prompts with an equal sign (=). The user then enters either a Data Replacement 
Specification or a Special Control Character. 


4.3.3 DATA REPLACEMENT SPECIFICATIONS 


Displayed data may be altered (replaced) by entering the new data in one of the 
following forms (after DEBUG prompts with an equal sign). 


General Form Description 
~XXXXXX... Replaces data with hexadecimal string "xxxxxx". The 


string should contain an even number of hexadecimal 
digits, and may be up to 80 digits in length. 


"CCCCCC¥iax Replaces data with character string "cccccc". The 
string may be up to 80 characters in length. 


n Replaces data with integer value "n". 


In the case of a hexadecimal or character string replacement, the data actually 
replaced may extend beyond the currently defined "window". 


A Special Control Character (see Section 4.3.4) must be entered immediately fol- 
lowing a Data Replacement Specification. 

4.3.4 SPECIAL CONTROL CHARACTERS 

The user may enter a Special Control Character in response to the DEBUG equal sign 
prompt character. In addition, the user must terminate a Data Replacement Speci- 


fication (see Section 4.3.3) with a Special Control Character. 


The Special Control Characters are listed below. 


Control Character Description 
Carriage Return Terminates display mode; DEBUG will prompt with an 


exclamation mark (!). 


Line Feed Displays data in the next "window" (i.e., the pre- 
viously specified "address" or "indirect-address" 
is updated according to the currently specified 
"“window"). The data is displayed on the same line. 


Control-N Displays data in the next "window", preceded by the 
address being displayed (in the format "f.d", where 
f is in decimal and d is in hexadecimal). 


Control Character Description 


Control-P Displays data in the previous "window" preceded 
by the address being displayed (in the format 
Ea") 7 


On a display using the “indirect-address" specification, the Line Feed or Control-N 
will cause an automatic crossing of linked frame boundaries if the register being 
used in the display is in the "linked" format. 


Generally speaking, Control-N displays the set of bytes the same size as and imme- 
diately following the current display, and Control-P displays the immediately pre- 
ceding set, with each skipping first to the next line and preceding the display of 
these bytes with their address (Line-Feed functions the same as Control-N, without 
skipping a line or displaying an address). Exceptions occur only in the case of 
the specification in the initial display of a negative displacement window, i.e., 
a window of the form: 


:Windowl, Window2 
Where windowl iS positive. 


In these cases, the address of the beginning of the next byte-set display is deter- 
mined by the formulas: 


For Control-N and Line-Feed: 


ADDR OF DISPLAY = ADDR OF CURRENT DISPLAY + SIZE WINDOW - DSPLC WINDOW 


For Control-P: 


ADDR OF DISPLAY 


ADDR OF CURRENT DISPLAY - SIZE WINDOW - DSPLC WINDOW 


The user may describe a sequence by careful specification of size and displacement 
windows. A few examples follow. 


Display a data list of DTLYS from right to left, i.e., by diminishing addresses, 
first displaying the DTLY at address 200.100. The easiest way is to simply use 
Control-P with a non-negative displacement window: 


'X200.100; DO .C1F1043F= (Control-P) 
200.FC .07510254= (Control-P) 
200.F8 .A10551F0= (etc.) 


Another way of reading right to left, using Control-N, is accomplished by specify- 
ing the value of the displacement window (:window) to be twice that of the value 
of the size window (.window2 (= 4 |for DTLYS)): 


£'200.108;8.4 .C1F1043F= (Control-N) (display DTLY at 200.100) 
200.FC .07510254= (Control-N) 
200.F8 .A10551F0= (etc.) 


To display an address over and over, as when monitoring changes at a certain ad- 
ress, the Line-Feed function may be used, specifying a displacement window equal 
in value to the size window. For example: 


'1510.102;2,2 5000= 5000= 5000= 5001= 5001= 5002= 
(Line-Feed display of tally at 510.100) 


A somewhat more tricky example: suppose one has sorted a list of five-letter words 
beginning at the 100th data byte of linked frame 510 and wishes to check it for 
correct order by comparing items O and 1, 1 and 2, 2 and 3, and so forth. This may 
be done, using Control-N, by specifying a size window twice the value of the dis- 


placement window: 


'c510.106;6,12 APPLECHAIR= (Control-N) 
+510.111 CHAIRCHOIR= (Control-N) 
+510.117 CHOIRFUNNY= (Control-N) 
+510.11D FUNNYHELLO= (etc.) 


4.4 THE FORMATTED TRACE 


The TRACE facility also allows formatting. This enables the user to specify a for- 
mat and one window only (the size window) for each item traced. The display of each 
item will then reflect its specified format and byte size. Forward or backward dis- 
placements will be ignored. Note, however, that the default format and window of 
an indirect trace is hex display of 4 bytes, not the preceding window. 


Examples: 

'1TX200.100; 4+ (Will trace location 200.100 with 4 bytes displayed in 
hex - the '+' prompt from DEBUG indicates entry into 
the table.) 

-T/CH1+ 736.21 (Trace of symbol CH1l - format = C, display size = l 
character - prompt 736.21 = display address of CH1.) 

:T*R15; TO+ (Indirect trace R15 - format = I, window size = 2 bytes.) 

!T*SR4+ 737.E0 (Indirect trace SR4 - format = X, display size = 4 bytes - 
default trace format and window is hex with 4 bytes, 
not previous format and window.) 

'D 


BRK TBL: 0. QO. O. O. 
TRC TBL: 200.100 736.21 Q. OO. 


*TRC TBL: R15. * 737.EO0 O. O. 
(Display of above entries in trace tables - 736.21] = 


display address of CHl, * 737.EO means the address 
pointed to by the S/R at 737.E0O (i.e., SR4) will be 
displayed.) 


4.5 SYMBOLIC REFERENCES 


Symbolic reference to system-defined or user-defined data items is possible with 

the use of the SET-SYM and SET-SYM2 verbs. These TCL-II verbs are issued to specify 
tables for symbolic operands to be referenced by DEBUG. Entries in these tables 
must be in the format used in the Assembler PSYM and TSYM files. 


SET-SYM assigns one symbol table; SET-SYM2 assigns another. Typically, SET-SYM is 


used to reference standard system-defined elements, and SET-SYM2 is used to reference 
user-defined elements. For example: 


DEBUG always looks for a symbolic operand first in the table set up by SET-SYM2. 
If this table in not assigned, or if the symbol is not found, it then looks in the 
table set up by SET-SYM. 


4.5.1 SYMBOLIC OPERATORS 


The symbolic operators '/' and '*' respectively indicate that a symbolic or indirect 
symbolic operand is to follow. They may be preceded by any format specification 
(X.I.C) or followed by a window specification (:windowl.window2 or :symbolic window) 
which will override the listed default display values. DEBUG will display only 
those symbols from the Symbol Table which would be accepted by the Assembler as 
legal in a normal assembly. 


4.5.2 DISPLAY FEATURES 


Symbolic operands for display may be any properly defined bit, character, half-word, 
word, double-word, triple-word, storage register, or address register within the 
assigned Symbol Table. Normal display features are as follows: 


Type of Symbol Format of Display # of Bytes Displayed 
HTLY Integer (I) i 
TLY Integer 2 
CHR Character (C) 1 
DTLY Integer 4 
FTLY Hex (X) 6 
S/R Hex 6 
A/R Hex 8 
S/R (INDIRECT) Previous format Previous window 
A/R (INDIRECT) Previous format Previous window 


These values are default values and are superceded whenever a specific format or 
window size is entered as part of a command. 


Examples: 

!1/CTR5 31= (Symbol = CTR5, format = I, display 
size = 2 bytes.) 

!/R15 708.CA - O0O0O000CA800 00 2C4= 
(708.CA is the address pointed to by RL5- 
see ‘the address function' - format = X, 
window size = 8 bytes. These are the con- 
tents of R15.) 

!1X/DO OO8C008C= (Actual stored contents of accumulator - 
format = X (as specified), display size = 4 
bytes.) 


Examples: (Continued) 


!*R15 708.CA . 2D2F2A2F= (Indirect display - contents at 708.CA - 
format = X (prev. format). Window size = 
4 bytes (prev. window) .) 


'C*R15;0,4 708.CA -/*/- (Format = C, window = 4 bytes with no 
negative displacement) 


A '+' indicates an address of a symbolic operand defined within a linked frame 
where 11 (hex 'B') has been added to the displacement to produce a display address 
starting from byte 1 of the frame. 


4.5.3 SYMBOLIC WINDOWS 
The symbolic window provides a useful means of referencing data pointed to by an 


A/R or S/R. It also enables the user to specify a forward reference from the 
address pointed to and carries an implicit default format specification. 


Examples: 
!*R9,D0 708.32 17301644= (Specifies the double-tally pointed to 
by RY) 
1*R3;T2 705.4 12593= (Specifies second tally after the tally 
pointed to by R3) 
1*SR6;Cl +32075.13A ,= (Gives the character HTLY immediately after 
the one pointed to by SR6 - implicit format = C) 
!1X/SR4;TO .012F= (Gives the displacement (in hex) of SR4) 
1/CTR4;S2 .009900910035= (Implicit format = X, size = 6 bytes) 


4.6 THE ADDRESS FUNCTION 


The address function is evoked by preceding a symbolic operator by the command '‘A'. 
An indirect symbolic operator preceded by the command 'A' yields the address 
pointed to by the specified A/R or S/R. 


The command 'A' alone, not followed by any operators, will yield the interrupt 
address from which execution was halted when the DEBUGGER was invoked. If the 
DEBUGGER was not entered due to an error trap condition, this address is also the 
address from which execution will continue if a 'G' command without a specified 
address is given. Some examples of the use of the ‘'A' function follow: 


!1A/CTR5 512.9A (Display address of symbol CTR5) 


!A*SR1 +534.2F (Adjusted byte address on linked frame pointed 
to by S/R SR1) 


1A*SR1;4.0 +534.2B (Address of DILY preceding address pointed to 
by S/R SR1) 


1A 6.94 (Address from which execution interrupted 
when DEBUG entered. Execution will continue 
from this address also.) 


4.7 THE LINKS FUNCTION 


This facility enables the user to display the forward and backward links of a 
specified frame as well as the number of next contiguous frames (NNCF) and number 
of previous contiguous frames (NPCF). The links of a frame pointed to be an A/R or 
S/R may also be obtained by an indirect symbolic links specification. The format 


of display is: 


NNCF : FORWARD LINK BACKWARD LINK : NPCF 
Examples : 
!1L727 4 : 728 726 : 1 (Links for frame 727 - 4 contiguous linked 


frames follow beginning at frame 728. 
1 contiguous linked frame precedes frame 726.) 


!L*IRBEG 14891. O : 14893 0:0 
(S/R IRBEG points to frame 14891 - 


frame 14891 has no immediately contiguous 
links. Forward link is 14891. No backward 


link.) 


IL1lF 28 : 68944000 -179407469 : -112 
(These are the 'links' of frame 31 which is 


not a linked frame. No test is made to de- 
termine if a frame is linked or not before 
play. If NNCF = 28 or 29 then the frame is 
probably not linked.) 


4.8 BIT DATA 


4.8.1 SYMBOLIC BITS 


Symbolically defined bits may also be displayed, providing they are defined within 
a 32-byte displacement range of their reference base register. Among the display 


functions are: 


Cont rol-N Skip to next line, display bit address and value of next bit. 

Line-Feed Display bit value on same line. 

Cont rol-P Skip to next line, display bit address and value of previous 
bit. 


4.8.2 BIT ADDRESSES 


The address function may also be used for bit operands. A bit address has the 
form: 


(+) FID. DSP:BIT 
where BIT is the bit displacement of the byte display address. 


Examples: 


!/ABIT O= (ABIT is not set.) 

!/RMBIT 1= (Cont rol-N) (RMBIT is set.) 

D1L221327 OF (Cont rol-P) 

512.13:6 1= (Display RMBIT again.) 

!A/LPBIT 512.19:5 (LPBIT is the 5th bit off address .19 of the 
PCB.) 


4.8.3 REPLACING BIT DATA 
Bit data values are changed by placing the desired value for the bit (0 or 1) 
after the '=' prompt. Up to 10 values in succession may be altered by placing a 


string of L's and O's after the prompt. 


Examples: 


1/OVFBIT 1=0 (Reset Overflow flag.) 

!/OVFBIT O= (Display of new OVFBIT value. ) 

!/DBIT O=111111 (Set bits DBIT = IBIT.) 

!/DBIT l= 1= 1= 1= 1= 1= (Display new values of DBIT - IBIT using 


Line-Feed function.) 


4.8.4 BIT WINDOWS 


An altemative means of bit display and modification is the bit window. This is 
a symbolic window using the character 'B', followed by a decimal bit displacement, 
as follows: 


1*R15;B6 516.CA:6 1= (6th bit off address pointed to by 15) 
!200.100;BO 200.100:0 1= (Leading bit of address 200.100) 


!A*R15;B100 516.D6:4 


4.9 BREAK MESSAGES 


DEBUG causes an execution break to occur when the BREAK key on the terminal is 
depressed. DEBUG also has the facility to break on intermodal transfers (l.e., 

BSL or ENT instructions; see Section 3.7.8); the M command acts as an alternate 
action switch, to change this feature from ON to OFF. A break can also be initiat- 
ed with the E command, causing a break after the execution of a specified number 
of instructions. The following messages are output when a break in execution 
occurs. 
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Message Condition 

B f.d Break-point address encountered. (Break Table 
match. ) 

E f.d Execution runout (specified number of instructions 
have been executed). 

I f.d Interrupt (Break key depressed). 

M f.d Modal break (Inter-frame branch; ENT or BSL 
instruction encountered). 

R f.d Retum (RIN) instruction encountered. 


where "f" is the decimal FID and "d" the hexadecimal displacement, repre- 
senting the location of the execution interruption point. 


The Execution Break and Address Break facilities are mutually exclusive. When the 


Execution Counter is positive, Break Table entries are ignored. However, the Break 
Table of the Execution Break facility can be used with the Modal Break facility. 


4.10 EXAMPLES 


4.10.1 SIMPLE EXAMPLE 


The following example illustrates a simple DEBUG interaction. The features 


illustrated here may be used by all Reality users. 


ENGLISH LIST statement 


SYSTEM-MODES......... FRAME @ inocu 3-410 

WS PACES FRAME 172 Listing output from 

EDIT-I FRAME 013 system. 

PQUEUE/1200 FRAME 164 

WRAPUP- II BREAK key depressed. 

I 6.1A3 Interrupt message. 

!'P CR OFF Turns Print off. 

!G CR Go (resumes execution without 
printing). 
BREAK key depressed. 

I 3.FB Interrupt message. 

!P CR ON Turn Print back on. 

!G CR Go (resumes execution with 
printing). 

DB 3 FRAME 018 

DB4 FRAME 019 Listing output resumes. 

TAPEIO-II FRAME 036 

DB5 BREAK key depressed. 

I 6.137 Interrupt message. 

!END CR Terminates LIST execution. 
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TCL prompt. 


4.10.2 EXTENDED EXAMPLE 


The following example illustrates use of the extended DEBUG facilities. These 
facilities can be used only by users with system privileges level two. 


BREAK key depressed. 


Aes Lae eo Mage 

200.18 " CDEF34567890= 
200.1E .012C00000064 
200.18 .CDEF34567890 
200. ae 


neki 
vaneeee 


(no change). 

Change data in 

character form. 

fe Set delay counter. 

Trace location .40 in PCB. 
Trace Register four. 

Go. 


CL statement. 


R 5.49 RTN instruction encountered. 
512.40 = .000002060000 ~——_—ia-_-_-_—+_______—————— Data from direct trace. 
R 4. : 528. = .004154545249 ———____n9—™— '’|_ => Data from indirect trace. 


NE rrr rrr ines MO Gal break « 

512.40 = .000002060000 

R 4. : 528. = .004154545249 
R 5.78 

512.40 = .000020920000 

R 4. : 528. = .0041545452 49 
M 10.1 

512.40 = .000020920000 

R 4. : 528. = .004154545249 
M 8.1 

512.40 = .000020920000 

R 4. : 528. = .004154545249 
R 10.32 

512.40 = .000020920000 

R 4. : 528. = .004154545249 


(eee Display Break and Trace Table 
BRK TBL: 0. O. O. aE Ca 
TRC TBL: 512.40 O. O. O. Break Table entries. 


*TRC TBL: R4. 0. O. a Ee. hao Table entries. 
es Indirect Trace Table entries. 
“Terminate Execution. 


:-——HH—. —$ $$ $$ $$ Back to TCL. 


SECTION 5 
SYSTEM SUBROUTINES 


The following subroutines are from a computer printout. The subroutines are listed 
alphabetically. 


DOCUMENTATION CONVENTIONS 


IN THE SYSTEM SOFTWARE DOCUMENTATION, EACH ROUTINE IS LISTED 
ALONG WITH ITS ENTRY POINT (AS WOULD BE USEO IN A DEFM 
STATEMENT) 3 IF THE ENTRY POINT IS INCLUDED IN THE STANDARD 
PSYM FILE. IT IS FOLLOWED RY AN ASTERISK (#), UNLESS 
OTHERWISE SPECIFIED. ROUTINES ARE MEANT TO BE CALLED AS 
SUBROUTINES, USING A BSL INSTRUCTION, AND THEY RETURN TO THE 
CALLING PROGRAM VIA A RTN INSTRUCTION, 


THE FUNCTIONAL DESCRIPTION SECTION FOR EACH ROUTINE BRIEFLY 
DESCRIBES THE ACTION TAKEN, THE INPUT INTERFACE. OUTPUT 
INTERFACE, AND ELEMENT USAGE SECTIONS DESCRIBE THE 
FUNCTIONAL ELEMENTS USED BY THE ROUTINE. THE SINGLE LETTER 
FOLLOWING AN ELEMENT NAME DESCRIBES ITS’ TYPESs B=BIT, 
C=CHARACTER. HsHALF TALLY. T=TALLY (WORD), DaDOUBLE TALLY, 
FSTRIPLE TALLY» RSADDRESS REGISTER, SzsSTORAGE REGISTER, 
EVEN IF NOT SPECIFIED, THE FOLLOWING ELEMENTS MAY BE 
DESTROYED BY ANY ROUTINES THE ONLY WAY TO BE SURE IS TO 
INSPECT THE CODES 


BITS 3 ARITHMETIC CONDITION FLAGS, 
SB60, SR61 

TALLIES 3 T4, TS 

DOUBLE TALLIES 3 ACCUMULATOR AND EXTENSION (DO, 
Di). De 

REGISTERS 3 R14, R15 


STORAGE REGISTERS $ SYSRO, SYSR1i, SYSR2 


IF NO DESCRIPTION FOLLOWS AN ELEMENT NAME, IT INDICATES THAT 
THE ELEMENT IS USED AS A SCRATCH ELEMENT. 


THE SYSTEM ODELIMITERS ARE SYMOLICALLY REFERRED TO AS 
FOLLOWS: 


HEX, VALUE NAME AND DESCRIPTION 
PF SM SEGMENT MARK 
FE AM ATTRIBUTE MARK 


DOCUMENTATION CONVENTIONS 


FD VM VALUE MARK 
FC SVM SECONDARY VALUE MARK 
FB SB START BUFFER 
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BCKSP 


BCKSP (10, TAPEIOeT) 


FUNCTIONAL DESCRIPTION 


THIS ROUTINE BACK@SPACES THE TAPE BY ONE RECORD. IT CALLS 
INTT AND TPSTAT, AND REQUIRES FOUR ADDITIONAL LEVELS OF 


SUBROUTINE LINKAGE. 


BLOCKeSUB 


BLOCKeSUB (2,BLOCK#LETTERS) 
FUNCTIONAL DESCRIPTION 


THIS ROUTINE PRINTS BLOCK LETTERS ON’ THE TERMINAL OR LINE 
PRINTER, IT IS USED. FOR INSTANCE, BY THE TCL VERBS 
"BLOCK#TERM" AND "BLOCK*PRINT"3 FOR MORE INFORMATION, SEE 
THE DISCUSSION OF THESE VERBS IN THE SYSTEM COMMANDS 
DOCUMENTATION, 


INPUT INTERFACE 


Is R POINTS ONE BEFORE THE FIRST CHARACTER TO 
BE OUTPUT: THE ENO OF DATA IS MARKED BY 
THE CHARACTER PAIR SM Z (NO SPACE AFTER 
THE SM): IF ANY ELEMENT IN’ THE OATA 
STRING CONTAINS A SM, IT MUST BE 
TERMINATED BY A SB (SEE M018 
DOCUMENTATION, "EDITING FEATURES") 


ZFLG B IF SET, OUTPUT IS DIRECTED TO THE 
TERMINAL, OTHERWISE OUTPUT IS PASSED TO 
THE SPOOLER FOR LINE PRINTER LISTING OR 
OTHER USE 


OBSIZE T CONTAINS THE MAXIMUM NUMBER OF 
CHARACTERS ON EACH OUTPUT LINE 


08 R fOBBEG 


SB0 8 IF SET, NO TEST FOR TERMINAL OR PRINTER 
QUTPUT IS MADE, TERMINAL OR PRINTER 
CHARACTERISTICS ARE NOT INITIALIZED, THE 
OUTPUT DEVICE IS NOT ADVANCED TO 
TOPeOFeFORM, AND THE HEADING IS NOT SET 
NULL’ ALL THESE ACTIONS TAKE PLACE IF 
SBO IS RESET 


AFBEG $ *¢ 
BMSBEG S + POINT TO SCRATCH AREAS 
HSEND S * 
LISTFLAG B °#* 
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FRMTFLG 
NOBLNK 
LFOLY 
PAGSIZE 
PAGSKIP 
PAGFRMT 


O—-4-1-4 w 


OUTPUT INTERFACE 


OB R 
PAGINATE 8B 
PAGHEAD 


ELEMENT USAGE 


BITS 
SCO 
SCi 
SCe2 
REJCTR 
C1 
CTR16 
CTR1i7 
CTR18 
CTR19 
DO 

01 
BASE 
MODULO 
SEPAR 
IR 
UPD 
BMS 
AF 

OB 

CS 

TS 
Ri5 
SR4 


SR2e 
CTR1 
R14 


T7 
SYSR1 


MDDDADAADADA BA AGI I AHI HAHAHA M 


a 


io —-4 


8 


+++? + 


*#+¢+42+¢4+te4+4+t¢e+te+t tt eetette ete e+e & + + 


+ 


+ 


+ 


AS REQUIRED BY WRILIN 


ZzOBREG 
aj 


POINTS TO A NULL PAGE HEADING (SM) 
HSEND IF SBO#0 


UTILITY 


USED BY CVDIR 
USED BY RETIX 
USED BY WRILIN 
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AT 


SUBROUTINE USAGE 


RETIX’ GBMS IF THE SYSTEM FILE "BLOCK#CONVERT" [IS 
FOUNDs CVDIR3 WRTLIN NEWPAGE IF REQUIRED? PRNTHDR 
IF S8020% PCLOSEALL AND SETLPTR IF SBO020 AND ZFLG303 
SETTERM IF S60e1 OR ZFLG21 


SIX ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED IF 
"BLOCKeCONVERT"® IS A "Q"eCODE ITEM IN THE MASTER 
DICTIONARY, OTHERWISE. FIVE LEVELS REQUIRED 

ERROR CONDITIONS 


BLOCKeSUB EXITS TO WRAPUP (MD995 OR MD99) UNDER THE 
FOLLOWING CONDITIONS? 


ERROR NUMBER ERROR TYPE 


520 NULL INPUT DATA 

521 TOO MANY CHARACTERS (MORE THAN NINE) IN 
A WORD TO BLOCK 

522 BLOCKeCONVERT FILE MISSING OR IMPROPERLY 
DEFINED IN THE MASTER DICTIONARY 

523 BLOCK OUTPUT WOULD EXCEEO PAGE WIDTH 

524 AN INPUT CHARACTER YS NOT IN THE 


BLOCK*CONVERT FILE 


525 AN INPUT CHARACTER Is IMPROPERLY 
FORMATTFS IN THE BLOCK@CONVERT FILE 


CONV (O,CONV)* 
CONVEXIT (12CONV) 


FUNCTIONAL DESCRIPTION 


THESE ENTRY POINTS ARE USED TO CALL THE ENTIRE CONVERSION 
PROCESSOR AS A SUBROUTINE, WHICH WILL PERFORM ANY AND ALL 
VALID CONVERSIONS SPECIFIED IN THE CONVERSION STRING. OTHER 
ENTRY POINTS MAY BE USED TO PERFORM CERTAIN SPECIFIC 
CONVERSIONS. MULTILPLE CONVERSION CODES ARE SEPARATED BY 
VM'S IN THE CONVERSION STRING. CONVERSION IS CALLED BY THE 
ENGLISH PRE#PROCESSOR TO PERFORM CONVERSIONS ON "INPUT" DATA 
CIN SELECTION CRITERIA), AND BY THE LIST/SORT PROCESSOR TO 
PERFORM "OUTPUT" CONVERSION, 


CONV IS THE USUAL MODEeID USED TO INVOKE CONVERSION 
PROCESSING. CONVEXIT £8 THE ENTRY POINT TO WHICH ANY PART 
OF THE CONVERSION PROCESSOR RETURNS IN ORDER’ TO CHECK IF 
MORE CONVERSION IS REQUIRED (CFURTHER VM'S AND CONVERSION 
CODES IN THE CONVERSION STRING). 
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INPUT INTERFACE 
TSBEG 


Is 


MFLG 


CONV. CONVEXIT 


OUTPUT INTERFAC 
TSBEG 


TS 
TSEND 


Is 


S 


E 
Ss 


R 
8 


POINTS ONE BEFORE THE VALUE TO BE 
CONVERTED! THE VALUE IS CONVERTED "IN 
PLACE", AND THE BUFFER IS USED FOR 
SCRATCH SPACES THEREFORE IT MUST BE 
LARGE ENOUGHTO CONTAIN THE CONVERTED 
VALUE? THE VALUE TO BE CONVERTED IS 
TERMINATED BY ANY OF THE STANDARD SYSTEM 
DELIMITERS (SM. AM, VM, OR SVM) 


POINTS TO THE FIRST CHARACTER OF THE 
CONVERSION CODE SPECIFICATION STRING FOR 
CONV? FOR CONVEXIT, POINTS AT LEAST ONE 
BEFORE THE NEXT CONVERSION CODE CAFTER A 
VM) OR AM AT THE END OF THE STRING, OR 
TO THE AMs THE CODE STRING MUST END WITH 
AN AMs INITIAL SEMICOLONS (3) ARE 
IGNORED 


SET IF "INPUT" CONVERSION YS TO BE 
PERFORMEDS RESET FOR "OUTPUT" CONVERSION 


AS REQUIRED BY TRANSLATE (SEE TRANSLATE 
DOCUMENTATION) 


AS REQUIRED BY CFUNC (SEE CFUNC 
DOCUMENTATION) 


POINTS ONE BEFORE THE CONVERTED VALUE 


POINT TO THE LAST CHARACTER OF THE 
CONVERTED VALUES A SM IS ALSO PLACED ONE 
PAST THIS LOCATIONS TS2TSEND=TSBEG IF A 
NULL VALUE IS RETURNED 


POINTS TO THE AM TERMINATING THE 
CONVERSION CQDE(S) 


ELEMENT USAGE 


ELEMENT CONVERSIONS WHERE USED 
DFLG B F.T 

XFLG B F 

GMBIT =) F 

WMBIT ) F 

SB10 B ALL 

SBie B ALL 

DAF 1 B T 

DAF9 B T 

SCe2 C C.D.F.T 
TS T F.eMD 

T4 T D.F.MD,MT 
T5 T DoF .MD,MT 
T6 T DoF .M 

T7 T F,MD 

CTR’ T CeFeGeT 
CTRi2 T F 

CTR1i3 T F 

CTR20 T ALL 

CTRai T D.MD,T 


CONV, CONVEXIT 


CTRee T 0 
CTR23 T 0.MD 
CTR28 T T 

D1 D CoFMTOT 
De D D»FeMO MT 
D3 D MT 

D7 D F 

08 D F 

D9 D F 

PPO F FMD 
FP 4 F F,MD 
FPe F FMD 
FP F F 

FPG F F 

FPS F F 

FPX F F,MD.T 
(SYSRO) 

FPY F FMD 
BASE D T 
MODULO T T 
SEPAR T T 
RECORD ») T 

SIZE T T 

NNCF H T 

FRMN 9) T 

FRMP y T 

NPCF H T 


C.F MT.T 
t 

T , 
0,F.MD,MP,MToMX,T 
ALL 


A 
£& 
DBMNMAMHHnROMnD ADA ~i 
e f"e 
“ur 


OnOroaea- +4 


. 
= 


SUBROUTINE USAGE 


CONV, CONVEXIT 


USER 


CVXIS FOR "U" CONVERSIONSs GCORR FOR "G* CONVERSIONS) 
TRANSLATE FOR "T" CONVERSIONS? PACKUN FOR "MP ® 
CONVERSIONS? CONCATENATE FOR “C* CONVERSIONS? 
ADDITIONAL SUBROUTINES AS USED BY ROUTINES LISTED UNDER 
EXITS" BELOW, AND BY USEReWRITTEN ROUTINES 


THE NUMBER OF ADDITONAL LEVELS OF SUBROUTINE LINKAGE 
REQUIRED DEPENDS ON THE CONVERSIONS PERFORMED © SEE THE 
DOCUMENTATION FOR THE VARIOUS CONVERSION ROUTINES FOR 
MORE SPECIFIC INFORMATION? NOTE THAT FOR "Fe 
CONVERSIONS», CFUNC MAY CALL CONV RECURSIVELY 


CONVERSION PROCESSING 


THE CONVERSION PROCESSOR WILL PASS CONTROL TO A 
USER®WRITTEN ROUTINE IF A "UXXXX" CODE IS FOUND IN THE 
CONVERSION STRING. WHERE *XXXX" IS THE HEXADECIMAL 
MODE#ID OF THE USER ROUTINE. THIS ROUTINE CAN THEN 
PERFORM SPECIAL CONVERSION BEFORE RETURNING, THE INPUT 
INTERFACE FOR THE USER ROUTINE WILL BE IDENTICAL TO 
THAT DESCRIBED IN THE PRECEDING SECTIONS AFTER 
PERFORMING THE CONVERSION THE USER ROUTINE SHOULD SET 
UP THE OUTPUT INTERFACE ELEMENTS TO BE COMPATIBLE WITH 
CONVEXIT. ANO THEN EXIT VIA AN EXTERNAL BRANCH TO THAT 
POINT TO CONTINUE THE CONVERSION PROCESS IF MULTIPLE 
CONVERSIONS ARE SPECIFIED. ALTERNATELY, A RTN MAY BE 
EXECUTED IF THIS IS NOT NEEDED, OR TO PREVENT FURTHER 
CONVERSIONS FROM BEING PERFORMED. ELEMENTS USED BY THE 
REGULAR CONVERSION ROUTINES MAY SAFELY BE USED BY USER 
ROUTINESs HOWEVER, IF ADDITIONAL ELEMENTS ARE NEEDED, 
A COMPLETE KNOWLEDGE OF THE PROCESSOR THAT CALLED CONV 
(LIST. SELECTION, ETC.) WILL BE NECESSARY, 
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EXITS 


TO YIDATE FOR "0" CONVERSIONS ON INPUT (MFLG@1)3 
ODATE FOR "D" CONVERSIONS ON QUTPUT? TO ICONVMD OR 
OCONVMD FOR "MD" CONVERSION ON INPUT OR OUTPUT? 


CFUNC FOR *F® CONVERSIONS? TO TIMECONV FOR 


CONVERSIONSs TO HEXCONV FOR "MX" CONVERSIONS? 


THESE ROUTINES, HOWEVER, RETURN TO CONVEXIT 


TO 
TO 


amy" 
ALL 


FOR OUTPUT CONVERSION, A NULL VALUE RETURNED CAUSES AN 


CONV, CONVEXIT 


IMMEDIATE END OF CONVERSION PROCESSING, 


ERROR CONDITIONS 


CONV EXITS TO WRAPUP AFTER SETTING RMODE TO ZERO UNDER 


THE FOLLOWING CONDITIONS? 


FORMAT 


705 ILLEGAL CONVERSION CODE 

706 ILLEGAL ie CONVERSIONS 
INCORRECT, FILENAME CANNOT BE FOUND, 
ETC. 

707 NL/TD CANNOT BE FOUND FOR 


CONVERSION FILE 


A 


ny" 


WRAPUP JS ALSO ENTERED WITHOUT SETTING RMODE TO ZERO 


UNDER THE FOLLOWING ERROR CONOITIONS? 


708 VALUE CANNOT BE CONVERTED BY A *T* 
CONVERSION 
339 INVALID FORMAT FOR INPUT DATA CONVERSION 
CREAD 


CREAD (2,CARDIO) 


FUNCTIONAL DESCRIPTION 


THIS ROUTINE EITHER READS A CARD AND RETURNS THE CARD re ae 
I 


STATUS AFTER THE READ OR IT JUST RETURNS THE STATUS 
CANNOT READ A CARD. CARDS ARE READ IN EBCOIC AND 


CONVERTED BY THIS ROUTINE. 


ARE 


NOT 


INPUT INTERFACE 


Re R 


OBBEG Ss 


OUTPUT INTERFACE 


CFLG B 
Re R 
R15 R 


ELEMENT USAGE 


T3 T 


SUBROUTINE USAGE 
NONE 
ERROR CONDITIONS 


POINTS TO A SCRATCH BYTES NORMALLY Re 
ALWAYS POINTS TO BYTE ZERO OF THE 
PROCESS'S SCBA 


POINTS ANYWHERE WITHIN THE FRAME THAT 
THE CARD IS TO BE READ INTO, NORMALLY 
PCB+4 


SET IF AN ATTEMPT WAS MADE TO READ A 
CAROs RESET IF NO CARD WAS READ 


UNCHANGED, BUT THE BYTE ADDRESSED 
CONTAINS THE STATUS OF THE CARD READER 


POINTS TO THE FIRST BYTE OF THE CARD 
READ. 80 BYTES FROM THE END OF THE FRAME 
POINTED TO BY OBREG 


USED AS A COUNTER FOR STATUS TIMEOUT 
AFTER A READ 


NONE. EXCEPT CARD READER ERRORS RETURNED AS STATUS? 


CREAD 


THE MEANING OF THE STATUS BITS IS AS FOLLOWS? 


BIT 


0-2 


EXPLANATION OF SET CONDITION 


UNUSED BY THE CONTROLLER, AND ALWAYS 
ZERO 


CARD READER MECHANICAL ERROR (PICK 
FAILURE, CARD MOTION ERROR, ETC.) 


EBCDIC ERROR DETECTED (E.Gee AN INVALID 
PUNCH COMBINATION)# THIS IS NOT AN ERROR 
IF CFLG YS ZERO, HOWEVER 


INPUT HOPPER EMPTY 
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6 (ALWAYS RESET BY CREAD, AND USED ONLY 
FOR BYTE I/0) 


7 CARD READER READY 


3.5.7 IF THESE RITS ARE ALL SET, CARD READER 
POWER IS OFF 


CVSUBS 


STRING TO SIXeBYTE RINARY CONVERSION 
FUNCTIONAL DESCRIPTION 


THESE ROUTINES CONVERT A STRING OF ASCII DECIMAL OR 
HEXADECIMAL CHARACTERS TO THEIR BINARY EQUIVALENT? 
CONVERSION CONTINUES UNTIL AN ILLEGAL (NONeDECTIMAL OR 
NON*HEXADECIMAL) CHARACTER IS ENCOUNTERED. 


ON ENTRY, THE APPROPRIATE REGISTER (SEE TABLE) POINTS ONE 
PRIOR TO THE FIRST CHARACTER OF THE STRINGS THIS CHARACTER 
MUST BE A PLUS SIGN. MINUS SIGN, OR NUMERIC (089 FOR DECIMAL 
ROUTINES, O09 AND A@=F FOR HEXADECIMAL ROUTINES). ON RETURN, 
THE CONVERTED BINARY NUMBER IS IN THE ACCUMULATOR (AND IN 
SOME CASES, IN CTRi)8 THE REGISTER POINTS TO THE ILLEGAL 
CHARACTER CAUSING THE CONVERSION TO TERMINATE. NOTE THAT 
THE REGISTER WILL ALWAYS BE INCREMENTED BY ONE EVEN IN THE 
CASE OF A NULL STRING (NO LEGAL CHARACTERS). ALSO, 
ARITHMETIC OVERFLOW DUE TO TOO MANY DIGITS IN THE CHARACTER 
STRING CANNOT SE DETECTED. 


INPUT INTERFACE 


ENTRY POINT REGISTER CONVERSION 
CVDR15 (4,SYSTEM#SUBS=])* R15 NECIMAL 
CVOIS (5,SYSTEM-SUBSeI)x* TS (R4) DECIMAL 
CVD0S (6eSYSTEM=SUBS#I)* OS (R5) DECIMAL 
CVDIR (9,SYSTEM#SUBSeI)* IR (R6) DECIMAL 
CVOIB (11,SYSTEM@#SUAS@I)x IB (R10) DECIMAL 
CVXR15 (3,SYSTEM*SUBSeI)x R15 HEXADECIMAL 
CVXIS (7,SYSTEM#SUBS#I)* IS (R4) HEXADECIMAL 
CVXOS (8,SYSTEM=SUBSeI)»s OS (R5) HEXADECIMAL 
CVXTR (10,SYSTEM@#SUBSe])* IR (R6) HEXADECIMAL 
CVXIB (12,SYSTEM#SUBS#I)* TB (R10) HEXADECIMAL 


OUTPUT INTERFACE 
FPO F CONTAINS THE CONVERTED VALUE OF THE 
STRING IF LEGAL CHARACTERS ARE FOUND, 
OTHERWISE ZERO 


CTR! T sD0 (EXCEPT FOR CVOR1S AND CVXR15., WHICH 
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CVSUBS 


DO NOT USE THIS ELEMENT) 


NUMBIT B SET IF CONVERSION COMPLETED AND THE 
STRING IS TERMINATED BY A SYSTEM 
DELIMITER 


ELEMENT USAGE 
T3 T 
SUBROUTINE USAGE 
CVOR15 OR CVXR1I5 USED BY THE OTHER ROUTINES 


ONE ADDITIONAL LEVEL OF SUBROUTINE LINKAGE REQUIRED, 
EXCEPT FOR CVDR15S AND CVXR15 


OLINIT 


DLINIT (2,WSPACESeII)« 
FUNCTIONAL DESCRIPTION 


OLINIT IS USED TO OBTAIN A BLOCK OF CONTIGUOUS OVERFLOW 
SPACE FOR A FILE. APTER CHECKING THE INPUT PARAMETERS AND 
OBTAINING THE NECESSARY NUMBER OF FRAMES, IF AVAILABLE, IT 
ENTERS DLINIT1 TO INITIALIZE THE FRAMES (SEE OLINIT! 
DOCUMENTATION). IF NOT ENOUGH SPACE IS AVAILABLE FOR THE 
FILE. DLINIT CALLS NOSPACE TO FIND OUT IF PROCESSING SHOULD 
BE ABORTED (SEE NOSPACE DOCUMENTATION), 


INPUT INTERFACE 


MOOULO T # CONTAIN THE MODULO AND SEPARATION 

SEPAR T + PARAMETERS FOR THE FILE’ IF MODULO IS 
INITIALLY LESS THAN OR EQUAL TO ZERO, IT 
IS SET TO ELEVENs IF SEPAR IS INITIALLY 
LESS THAN OR EQUAL TO ZERO, IT IS SET TO 
ONE,s AND JF INITIALLY GREATER THAN 127 
It IS SET TO 127 


OUTPUT INTERFACE 
BASE D CONTAINS THE BEGINNING FID OF A 
CONTIGUOUS BLOCK OF SIZE MODULOXSEPAR IF 


THE SPACE I8 AVAILABLE, OTHERWISE 
UNCHANGED 
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OVRFLW 0 SBASE IF THE REQUESTED SPACE Is 
AVAILABLE. OTHERWISE =0 


RMBIT B SET IF THE REQUESTED SPACE IS OBTAINED, 
OTHERWISE UNCHANGED 


ELEMENT USAGE 


R14 R ¢ 
Ri5 R 
DO D0 ¢ 


USED BY GETBLK 


+ 


SUBROUTINE USAGE 


DLINIT 


GETBLKs NOSPACE IF THE REQUESTED SPACE IS UNAVAILABLE 

THREE ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED 
EXITS 

TO ODLINITi IF THE REQUESTED SPACE IS OBTAINED? TO 


NSPCQ (WRAPUP) FROM NOSPACE IF THE SPACE IS UNAVAILABLE 
AND PROCESSING IS ABORTED BY THE USER 


DLINIT{ 


DLINITL CO,WSPACESeII) 
FUNCTIONAL DESCRIPTION 


DLINIT! INITIALIZES THE LINK FIELDS OF A FILE AS SPECIFIED 
BY ITS BASE, MODULO, AND SEPARATION PARAMETERS, ANO SETS 
EACH GROUP EMPTY BY ADDING AN AM AT THE BEGINNING (IN THE 
FIRST DATA BYTE). 


INPUT INTERFACE 
BASE OD + CONTAIN THE BASE, MODULO, AND SEPARATIO 
MODULO T + OF THE FILE? NOTE @ ONE FRAME YS LINKED 

T 


SEPAR + EVEN IF MODULO IS LESS THAN OR EQUAL TO 
ZERO 
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OUTPUT INTERFACE 


R14 R POINTS TO THE FIRST DATA BYTE IN THE 
FIRST FRAME OF THE LAST GROUP IN THE 
FILE (SET BY LINK) 


R15 R POINTS TO THE LAST BYTE OF THE LAST 
FRAME OF THE LAST GROUP IN THE FILE (SET 
BY LINK) 


RECORD D SONE GREATER THAN THE FID OF THE LAST 
FRAME OF THE LAST GROUP IN THE FILE 


NNCF H SSEPAR@| 
FRAMES ARE INITIALIZED AS DESCRIBED ABOVE 


ELEMENT USAGE 


CTR1 T UTILITY 

FPF RMN bd 6+ 

FP RMP 0 « USED BY LINK 
NPCF 4H ¢ 


SUBROUTINE USAGE 


DLINIT! 


LINK 
ONE ADDITIONAL LEVEL OF SUBROUTINE LINKAGE REQUIRED 


ECONV, ACONV 


ECONV (0,EBCDIC)®* 
ACONV (2,EBCDIC) 


FUNCTIONAL DESCRIPTION 


THESE ROUTINES TRANSLATE A CHARACTER FROM EBCOIC OR ASCII TO 
ASCII OR ERCPIC. ECONV OPERATES ON EBCDIC INPUT, AND DOES 
NOT TRANSLATE CHARACTERS WITHOUT ASCII EQUIVALENTS e THESE 
CHARACTERS ARE RETURNED UNTRANSLATED, ACONV OPERATES ON 
ASCII INPUT, AND ALWAYS ZEROES THE HIGHYORDER BIT OF THE 
CHARACTER BEFORE TRANSLATION, 
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INPUT INTERFACE 
Ib R POINTS TO THE CHARACTER TO RE TRANSLATED 


OUTPUT TNTERFACE 


IR R UNCHANGED, BLIT POINTS TO THE TRANSLATED 
VALUE 


ELEMENT USAGE 


exe D + UTILITY 
R15 R ¢ 


SUBROUTINE USAGE 


NONE 


ENGLISH INTERFACE 


ENGLISH INTFRFACE 
SUMMARY 


IT I8 POSSIBLE TO INTERFACE WITH THE ENGLISH PROCESSOR AT 
SEVERAL LEVELS. A TYPICAL LIST OR SORT STATEMENT PASSES 
THROUGH THE PREPROCESSOR AND SELECTION PROCESSOR BEFORE 
ENTERING THE LIST PROCESSOR. ALL STATEMENTS MUST PASS 
THROUGH THE FIRST TWO STAGES, BUT CONTROL CAN BE TRANSFERRED 
TO USER@WRITTEN PROGRAMS FROM THAT POINT ONWARD, 


GENERAL CONVENTIONS 


THE ENGLISH PROCESSORS USE A COMPILED STRING THAT IS STORED 
IN THE IS WORK SPACE, STRING ELEMENTS ARE SEPARATED BY 
SM'S. THERE TS ONE FILE*DEFINING ELEMENT IN EACH STRING, 
ONE ELEMENT FOR EACH ATTRIBUTE SPECIFIED IN THE ORIGINAL 
STATEMENT, AND SPECTAL ELEMENTS PERTAINING TO SELECTION 
CRITERIA, SORT*KEYS, ETC. THE FORMATS OF VARTOUS STRING 
ELEMENTS ARE AS FOLLOWS: 


FILE DEFINING ELEMENT, AT ISBEG18 


SM D FILE*NAME AM BASE VM MODULO VM SEPAR AM CONV AM 
CORREL AM TYPE AM JUST AM SM 


ATTRIBUTE DEFINING ELEMENTS 


SM C ATTRIBUTE*NAME AM AMC AM CONV AM CORREL AM 
TYPE AM JUST AM §M 
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C = & = REGULAR OR D2 ATTRIBUTE 
Q = D1 ATTRIBUTE 
BX= SORT*RY, SORT#BY=DSND, ETC.s "X" ITS FROM 
ATTRIBUTE ONE OF THE CONNECTIVE 


EXPLICIT ITEM-ID'S: 
SM Y ITEM#ID SM 
END@#OF*®STRING ELEMENT? 


Sm 2 
ENGLISH INTERFACE 


THE SELECTION PROCESSOR 


THIS PERFORMS THE ACTUAL RETRIEVAL OF ITEMS WHICH PASS THE 
SELECTION CRITERTA. IF SPECIFIED. EVERY TIME AN ITEM IS 
RETRIEVED, THE PROCESSOR AT THE NEXT LEVEL IS ENTERED WITH 
BIT RMBIT SETs A FINAL ENTRY WITH RMBIT ZERO IS ALSO MADE 
AFTER ALL ITEMS HAVE BEEN RETRIEVED, IF A SORTED RETRIEVAL 
IS REQUIRED, THE SELECTION PROCESSOR PASSES ITEMS TO THE 
GOSORT MODE. WHICH BUILNS UP THE SORTeKEYS PREPARATORY TO 
SORTING THEM, AFTER SORTING, GOSORT THEN RETRIEVES THE 
ITEMS AGAIN, IN THE REQUESTED SORTED SEQUENCE, 


A USER PROGRAM MAY GET CONTROL DIRECTLY FROM THE SELECTION 
PROCESSOR (OR GOSORT IF A SORTED RETRIEVAL IS REQUIRED) 3 
THE FORMATS OF THE VERBS ARES 


LINE NUMBER NON#=SORTED SORTED 
i PA PA 
r 35 35 
3 XXXX 76 
i) XXX X 


WHERE "XXXX" REPRESENTS THE MODE*®ID OF THE USER PROGRAM, 
NOTE THAT IN THIS METHOD OF INTERFACE, ONLY ITEM RETRIEVAL 
HAS TAKEN PLACES NONE OF THE CONVERSION AND CORRELATIVE 
PROCESSING HAS BEEN DONE. FOR FUNCTIONAL ELEMENT INTERFACE, 
THE COLUMN HEADED "SELECTION PROCESSOR® IN THE TABLE SHOWN 
LATER MUST BE USED. 


EXIT CONVENTIONS ON ALL BUT THE LAST ENTRY, THE USER 
ROUTINE SHOULD EXIT INDIRECTLY VIA RMODE CUSING AN ENT® 
RMODE INSTRUCTION)$ ON THE LAST ENTRY, THE ROUTINE SHOULD 
EXIT TO ONE OF THE WRAPUP ENTRY POINTS. PROCESSING MAY BE 
ABORTED AT ANY TIME BY SETTING RMODE TO ZERO AND ENTERING 
WRAPUP,. BIT S80 MUST ALSO BE SET ON THE FIRST ENTRY. 
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SPECIAL EXIT FROM THE LIST PROCESSOR 


A USER PROGRAM MAY ALSO GAIN CONTROL IN PLACE OF THE NORMAL 
LIST FORMATTER, TO PERFORM SPECIAL FORMATTING. THE 
ADVANTAGE HERE IS THAT ALL CONVERSIONS, CORRELATIVES. ETC., 
HAVE BEEN PROCESSED, AND THE RESULTANT OUTPUT DATA HAS BEEN 


ENGLISH INTERFACE 


STORED IN THE HISTORY STRING (HS AREA). THE FORMATS OF THE 
VERBS THEN ARES 


LINE NUMBER NON@SORTED SORTED 
1 PA PA 
2 35 35 
3 4D ae 
4 X XXX XXXX 


WHERE "XXXX" YS THE MODE*ID OF THE USER PROGRAM, 


OUTPUT DATA 18 STORED IN THE HS AREAS DATA FROM EACH 
ATTRIBUTE IS STORED IN THE STRING. DELIMITED BY AM!S3 
MULTIPLE VALUES AND SUBeMULTIPLE#VALUES ARE DELIMITED WITHIN 
AN ELEMENT BY VM'S AND SVM'S, RESPECTIVELY. SINCE THE HS 
MAY CONTAIN OATA OTHER THAN THE RETRIEVED ITEM, THE USER 
PROGRAM SHOULD SCAN FROM HSBEG. LOOKING FOR A_ SEGMENT 
PRECEDED BY AN "X"3 ALL SEGMENTS EXCEPT THE FIRST ARE 
PRECEDED BY A SM, THE FORMAT I88 


X ITEMeID AM VALUE ONE AM eee AM VALUE N AM 8M Z 


THE PROGRAM MUST RESET THE HISTORY STRING POINTER HSEND AS 
ITEMS ARE TAKEN OUT OF THE STRING. IN SPECIAL CASES. DATA 
MAY NOT @8E USED UNTIL, SAY, FOUR ITEMS ARE RETRIEVED. IN 
WHICH CASE HSEND IS RESET ON EVERY FOURTH ENTRY ONLY. HSEND 
MUST BE RESET TO POINT ONE BYTE BEFORE THE NEXT AVAILABLE 
SPOT IN THE HS WORK SPACE. NORMALLY ONE BEFORE THE FIRST "X" 
CODE FOUND, 


THE EXIT CONVENTION FOR THE LIST PROCESSOR IS THE SAME AS 
FOR THE SELECTION PROCESSOR (SEE ABOVE). 


EXAMPLES THE FOLLOWING PROGRAM IS AN EXAMPLE OF ONE WHICH 
PRINTS ITEMeIN'S (ONLY) FOUR AT A TIME ACROSS THE PAGE. 


001 FRAME 504 

002 ZB $B30 INTERNAL FLAG 
003 BBS SB1,NOTF NOT FIRST TIME 
004 * FIRST TIME SETUP 

005 MOV 4,CTR32 

006 SB S81 
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ENGLISH INTERFACE 


007 * 

008 NOTE BBZ RMBIT,PRINTIT LAST ENTRY 

009 BDNZ CTR3P./RETURN NOT YET 4 ITEMS OBTAINED 
010 MOV 4,CTR32 RESET 

0441 PRINTIT MOV HSBEG,RI4 

Q12 LOOP INC R1a 

013 BCE C'x',R14,STOREIT FOUND AN ITEM 

014 SCE C'*Z',R1iG,ENDHS END OF HS STRING 

015 SCANSM SCO Ri4,X'co!? SCAN TO NEXT SM 

016 33 LOOP 

017 STOREIT BBS 8B30,COPYIT NO FIRST IO FOUND 
018 SB $B30 FLAG FIRST I0 FOUND 
019 MOV R14,SR28 SAVE LOCATION OF FIRST 
020 CMNT * nyt 

O21 COPYIT MIID R1i4,0B,X'A0! COPY ITEM*»ID TO OB 
022 MCC c* ',08 OVERWRITE AM 

023 INC 0B.5 INDEX 

024 B SCANSM 

025 ENDKS BSL WRTLIN PRINT A LINE 

026 MOV SR28,HSEND RESTORE HS TO FIRST 
027 CMNT " "x" CODE 

028 DEC MHSEND BACK UP ONE BYTE 

029 BBZ RMBIT,QUIT 

030 RETURN ENTs RMODE RETURN TO SELECTION 
031 CMNT w PROCESSOR 

N32 QUIT ENT MD999 TERMINATE PROCESSING 
033 END 


ELEMENT USAGE 


THE FOLLOWING TABLE SUMMARIZES THE FUNCTIONAL ELEMENT USAGE 
BY THE SELECTION AND LIST PROCESSORS. ONLY THE MOST 
IMPORTANT USAGE IS NESCRIBEDS ELEMENTS THAT HAVE VARIOUS 
USAGES ARE LABELED "SCRATCH." A “ " (BLANK) INDICATES THAT 
THE PROCESSOR DOES NOT USE THE ELEMENT. SINCE THE LIST 
PROCESSOR IS CALLED BY THE SELECTION PROCESSOR, ANY ELEMENT 
USED FOR "MEMORY" PURPOSES (NOT TO BE USED BY OTHERS) IN THE 
FORMER IS INDICATED BY A BLANK USAGE IN THE LATTER COLUMN, 


IN GENERAL, USER ROUTTNES MAY FREELY USE THE FOLLOWING 
ELEMENTS: 


RITS ; $B20 UPWARDS 
TALLIES : CTR30 UPWARDS 
DOUBLE TALLIES: D3=#D8 

S/R'S : SR20 UPWARDS 
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S80 AND SB1 HAVE A SPECIAL CONNOTATION? THEY ARE ZEROED BY 
THE SELECTION PROCESSOR WHEN IT IS FIRST ENTEREO, AND NOT 
ALTERED THEREAFTER. THEY ARE CONVENTIONALLY USED AS 
FIRSTeTIME SWITCHES FOR THE NEXT TWO LEVELS OF PROCESSING. 
SBO IS SET BY THE LIST PROCESSOR WHEN IT IS FIRST ENTERED, 
AND USER PROGRAMS THAT GAIN CONTROL OIRECTLY FROM SELECTION 
SHOULD DO THE SAME. SBi MAY BE USED AS A FIRSTeENTRY SWITCH 
BY USER PROGRAMS THAT GAIN CONTROL FROM THE LIST PROCESSOR, 


BITS SELECTION PROCESSOR LIST PROCESSOR 
AFLG SCRATCH NONeCOLUMNAR LIST FLAG 
BFLG FIRST ENTRY FLAG 
CFLG SCRATCH SCRATCH 
DFLG SCRATCH DUMMY CONTROL @BREAK 
EFLG RESERVED CONTROL@BREAK FLAG 
FFLG RESERVED SCRATCH 
GFLG RESERVED RESERVED 
HFLG RESERVED RESERVED 
IFLG EXPLICIT ITEM#ID'S 
SPECIFIED 
JFLG RESERVED D2 ATTRIBUTE IN 
PROCESS 
KFLG BYe#EXP FLAG BYeEXP FLAG 
LFLG SCRATCH LEFTe JUSTIFIED FIELD 
MFLG CONV INTERFACES ZERO 
ZERO 
NFLG SCRATCH SCRATCH 
OFLG SELECTION TEST ON 
ITEMeID 
PFLG SCRATCH SCRATCH 
QFLG SCRATCH SCRATCH 
RFLG FULLeFILE*®RETRIEVAL 
FLAG 
SFLG SELECTION ON VALUES 
(WITH) 
TFLG SCRATCH PRINT LIMITER FLAG 
UFLG SCRATCH RESERVED 
VFLG RESERVED SCRATCH 


ENGLISH INTERFACE 


WFLG SCRATCH RESERVED 

XFLG SCRATCH RESERVED 

YFLG RESERVED RESERVED 

ZFLG LEFT JUSTIFIED 

ITEM#ID 

SBO UNAVATLABLE FIRST ENTRY FLAG, 
LEVEL ONE 

SB1 UNAVAILABLE FIRST ENTRY FLAG, 
LEVEL TWO 
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SBe 
THROUGH 
$817 
VOBIT 


COLHDRSUPP 
DBLSPC 
HDRSUPP 
IOSUPP 
DETSUPP 
LPBIT 
TAPEFLG 
CBBIT 
PAGFRMT 
RMBIT 


WMBIT 
GMBIT 
BKBIT 
DAF 1 
DAF 8 


TALLIES 


CisC3-C7 
Ce 
CTRiIeCTRG 
CTRS 


CTR6 
CTR? 


CTRS 
CTRO 
CTR10 
CTRIL 
CTRie 


CTR1IS 
CTR14 
CTRIS 
CTR16 
CTR17 
CTR18 
CTRIS 


CTR20eCTR23 


CTRe& 
CTRe5 
CTR26 
CTRe7T 
CTR28 
CTRe9 


SCRATCH OR RESERVED 


SET FOR WRAPUP 
INTERFACE 

SET IF THE CORRE 
SPONDING CONNECTIVE 
WAS FOUND IN THE 
INPUT STATEMENT 


SET ON EXIT IF AN 
ITEM WAS RETRIEVED? 
ZERO ON FINAL EXIT 
FUNC INTERFACE 

FUNC INTERFACE 
SCRATCH 

RESERVED 

SET IF ACCESSING A 
DICTIONARY 


SELECTION PROCESSOR 


SCRATCH 
CONTENTS OF MODEITDe 
SCRATCH 
SCRATCH 


RESERVED 
RESERVED 


RESERVED 
RESERVED 
RESERVED 
RESERVED 
FUNC INTERFACE 


FUNC INTERFACE 
RESERVED 
RESERVED 
RESERVED 
RESERVED 
RESERVED 
RESERVED 
CONV INTERFACE 
RESERVED 
RESERVED 
RESERVED 
RESERVED 
RESERVED 
RESERVED 
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SCRATCH 


FUNC INT 
FUNC INT 
SCRATCH 


OR RESEVED 


ERFACE 
ERFACE 


LIST PROCESSOR 


SCRATCH 


SCRATCH 


AMC OF THE CURRENT 


ELEMENT 
SCRATCH 


IN THE IS 


AMC CORRESPONDING 


TO IR 
SCRATCH 
SCRATCH 
SCRATCH 
SCRATCH 
CURRENT 
COUNT 
CURRENT 
SCRATCH 
ITEM SIZ 
SCRATCH 
RESERVED 
SCRATCH 
SEQUENCE 
CONV INT 
SCRATCH 
SCRATCH 
SCRATCH 
CURRENT 
SCRATCH 
RESERVED 


SUB*eVALUE 
VALUE COUNT 


E 


NO FOR BYeEXP 


ERFACE 


MAXeLENGTH 


OTHER STORAGE 
D9 

D7 

FPL FPS 
RMODE 
SIZE 
SBASE 
SMOD 
SSEP 
DBASE 
DMOD 
DSEP 
S/R'S 
$1 
S289 
SRO 


ENGLISH INTERFACE 


SR1 

SR2 

SR3 

SR4 

SR5 

SR6 

SR7 
SR&"SRie2 
SR13 
SR1i4eSR19 
PAGHEAD 


PAGFOOT 


A/R'S 


AF 
BMS 


SELECTION PROCESSOR LIST PROCESSOR 


COUNT OF RETRIEVED 


ITEMS 

FUNC INTERFACE 
FUNC INTERFACE 
RETURN MODEeID 
(MD3) 
ITEM@SIZE 


FILE BASE. MONULO, 


AND SEPARATION 


DICTIONARY BASE, 
MODULO, AND 
SEPARATION 


FUNC INTERFACE 
FUNC INTERFACE 


SCRATCH 


SELECTION PROCESSOR LIST PROCESSOR 


POINTS TO THE NEXT 


EXPLICIT ITEMeID 
SCRATCH 
POINTS ONE BEFORE 


THE ITEM COUNT FIELD 


POINTS TO THE 
CORRELATIVE FIELD 
SCRATCH 

RESERVED 


POINTS TO THE LAST 


AM OF THE ITEM 
RESERVED 


POINTS TO THE 
CONVERSION FYELD 
RESERVED 

RESERVED 

GOSORT ONLY’ NEXT 
SORT#KEY 

RESERVED 

HEADING IN THE HS 
IF HEADING WAS 
SPECIFIED 

FOOTING IN THE HS 
IF FOOTING WAS 
SPECIFIED 


SELECTION PROCESSOR 


SCRATCH 
WITHIN THE BMS 
AREA 
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SCRATCH 


CURRENT CORRELATIVE 
FIELO 

SCRATCH 

SCRATCH 


POINTS TO THE NEXT 
SEGMENT IN THE IS 

CURRENT CONVERSION 
FIELD 

SCRATCH 

RESERVED 

RESERVED 


RESERVED 

BENERATED HEADING IN 
THE HS 

GENERATED FOOTING IN 
THE HS, IF PRESENT 
LIST PROCESSOR 


SCRATCH 
SCRATCH 


cs SCRATCH 


IB SCRATCH 

06 QUTPUT NATA LINE 
Is COMPILED STRING COMPILED STRING 

OS SCRATCH 

TS WITHIN THE TS AREA WITHIN THE TS AREA 
UPN WITHIN THE HS AREA 
IR WITHIN THE ITEM WITHIN THE ITEM 
WORK SPACE 

USAGE SELECTION PROCESSOR LIST PROCESSOR 

AF SCRATCH 

BMS CONTAINS THE ITEMeIO 

CS 

TB 

OB QUTPUT LINE 

18 COMPILED STRING 

0S SCRATCH 

HS HEADING DATA HEADING DATA3 


ATTRIBUTE DATA FOR 
SPECIAL EXITS 

TS SCRATCH CURRENT VALUE IN 
PROCESS 


ADDITIONAL NOTES 


1. IF A FULLeFILE®RETRIEVAL IS SPECIFIED, THE 
ADDITIONAL INTERNAL ELEMENTS AS USED BY GETITM 
WILL BE USED. IF EXPLICIT ITEMeID'S ARE 
SPECIFIED, RETIX IS USEN FOR RETRIEVAL OF EACH 
ITEM, 


Ce MOST ELEMENTS USED BY THE CONV AND FUNC PROCESSORS 
HAVE BEEN SHOWN IN THE TABLES BOTH MAY BE CALLED 
FITHER BY THE SELECTION PROCESSOR OR THE LIST 
PROCESSOR. 


3. SINCE THE ISTAT AND SUM/STAT PROCESSORS ARE 
INDEPENDENTLY ORIVEN BY THE SELECTION PROCESSOR, 
THE ELEMENT USAGE OF THESE PROCESSORS IS NOT 
SHOWN, 


4. THE SECTION OF THE YS AND OS USED BY THE SELECTION 
AND LIST PROCESSORS IS DELIMITED BY [SEND AND 
OSEND RESPECTIVELY. THE BUFFER SPACE BEYOND THESE 
POINTERS IS AVAILABLE FOR USE BY OTHER PROGRAMS, 


BATCH PROCESSOR INTERFACE 


THE BATCH PROCESSOR USES A_  BATCH#@STRING WHICH DEFINES THE 
METHOD OF UPDATING ONE OR MORE ITEMS IN ONE OR MORE FILES 
USING A SINGLE LINE OF INPUT DATA. THE UPDATED ITEMS ARE 
BUILT AS DISCeUPDATE STRINGS IN THE HISTORY STRING AREA (SEE 
WRAPUP DOCUMENTATION FOR FORMAT). 
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A USER ROUTINE CAN BE DEFINED IN THE BATCHeSTRINGS THE 
FUNCTIONAL ELEMENTS USED BY BATCH ARE DESCRIBED IN’ THE 


ENGLISH INTERFACE 


FOLLOWING TABLES? THE COLUMN HEADED "LEVEL" HAS THE 
FOLLOWING ENTRIESS 
0 THE ELEMENT JS USED IN THE DESCRIBED FASHION 
THROUGHOUT THE BATCH PROCESSING 
F THE ELEMENT I§ REDEFINED EVERY TIME A 
FILE*DEFINING ELEMENT TS FOUND 
A THE ELEMENT IS REDEFINED FOR EVERY ATTRIBUTE 
BLANK THE ELEMENT I8 USED AS SCRATCH, OR Is 


RESERVED FOR FUTURE USAGE 


AS FAR AS USER PROGRAMS) ARE CONCERNED, THEREFORE, ALL 
ELEMENTS DEFINED AT THE "A*® LEVEL CAN ALSO BE CONSIDERED 
SCRATCH, 


EXIT CONVENTIONS THE USER ROUTINE MUST RETURN TO THE BATCH 
PROCESSOR VIA A BRANCH INSTRUCTION TO 0,BATCHS, 


BITS LEVEL DESCRIPTION 

AFLG 0 FIRST#TIME SWITCH FOR BATCH 

BFLG RESERVED 

CFLG SCRATCH 

DFLG fa D2 ATTRIBUTE IN PROCESS 

EFLG F UPDATES TO BE MERGED WITH THE ITEM 

FFLG 0 SET WHEN A BV OR BC SUB@ELEMENT 
IS FOUND 

GFLG RESERVED 

HFLG A D1 ATTRIBUTE IN PROCESS 

IFLG 0 SET WHEN A "SECONDARY" FILE 

JFLG RESERVED 

KFLG F ITEM 18 TO BE VERIFIED AS EXISTING 

LFLG F ITEM JS TO BE VERIFIED AS NOT 
EXISTING 

MFLG A SET: CONV INTERFACE 

NFLG RESERVED 

OFLG RESERVED 

PFLG F A BV OR BC SUBeELEMENT REFERENCES 
A MULTIeVALUED FIELD 

QFLG RESERVED 
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RFLG 
SFLG 
TFLG 
UFLG 


VFLG 
WFLG 
XFLG 
YFLG 
ZFLG 
SB1eSB9 
DAF 10 


TALLIES 
Ci 


Ce 
C3-C9 


CTRI@CTRS 


CTRG 


CTR5 
CTR6 
CTRT 
CTRB 
CTRI 
CTR10 
CTRi1 


CTRie2 
CTRiI3 


CTRI4G@CTRII 


OTHER 
STORAGE 


FPIeFPS 
BASE 
MODULO 
SEPAR 
SBASE 
SMOD 
SSEP 

07 

D9 
RMODE 


CHARACTERS 


SCP 


SCO 
SC1i 
SC2 


LEVEL 


LEVEL 


0 
LEVEL 
0 


ooo 


RESERVED 

SCRATCH 

SCRATCH 

ITEM IS TO BE DELETED (X ELEMENT 
IN THE FILE*DEFINITION) 

SCRATCH 

SCRATCH 

RESERVED 

PRIMARY ITEM BEING DELETED 
SCRATCH 

SCRATCH 

SET IF SELECT/SSELECT IS ORIVING 
RATCH 


DESCRIPTION 


SCRATCH 

SCRATCH 

RESERVED 

SCRATCH 

DieD2 SET NUMBER (FOLLOWS THE 01 
OR 02 ELEMENT) 

RESERVED 

RESERVED 

SCRATCH 

CURRENT AMC IN PROCESS 
RESERVED 

RESERVED : 

VALUE NO. OF "D181" ATTRIBUTES 
0 IF UNSPECIFIED 

VALUE NO. OF "Pis2e" ATTRIBUTES 
0 IF UNSPECIFIED 

VALUE NO. OF "0183" ATTRIBUTES 
0 IF UNSPECIFIED 

RESERVED 


DESCRIPTION 


SCRATCH 
SCRATCH 
SCRATCH 
SCRATCH 
SCRATCH 
SCRATCH 
SCRATCH 
SCRATCH 
SCRATCH 
RETURN MODE#ID FOR WRAPUP 


DESCRIPTION 


CONTAINS A “D" FOR B/DEL, "A" 
FOR B/ADD 

CONTAINS A BLANK 

SCRATCH 

CONTAINS A COMMA 
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A/R'S AND 


WORK SPACES LEVEL 
BMS A 

cs 

AF 

IB 0 

OB 

TS 0 

I$ 0 

OS 

UPD 0 
S/R'S LEVEL 
$1#S9 

SRO 0 

SRi 0 

SRe 

SR3 

SR F 

SRS 


ENGLISH INTERFACE 


SR6 

SR7 0 
SR8 

SRI A 
SR10 F 
SR1i1 0 
SRie 0 
SR13 

SR1i4 F 
SR15 F 
SR16eS8R19 


DESCRIPTION 


WORK SPACE CONTAINS THE CURRENT 
VALUE 

SCRATCHs WORK SPACE RESERVED 
UNUSED 

INPUT DATA LINE 

UNUSED 

USED FOR READING INPUT LINES 
CONTAINS THE BATCH STRINGS IS 
POINTS TO THE AM BEFORE THE 
NEXT ELEMENT 

SCRATCH WORK SPACE 

POINTS TO THE HISTORY STRING 


DESCRIPTION. 


SCRATCH 

POINTS ONE BEFORE THE COUNT FIELD 
OF THE PRIMARY ITEM ON FILE 
POINTS TO THE END OF THE PRIMARY 
ITEM ON FILE 

SCRATCH 

RESERVED 

POINTS TO THE END OF THE CURRENT 
ITEM ON FILE 

RESERVED 


RESERVED 

POINTS TO THE END OF THE OS 
DELETION TABLE 

RESERVED 

POINTS TO THE LAST BYTE OF VALUE 
IN THE BMS AREA 


POINTS TO THE END OF THE PRIMARY 
UPDATE STRING IF FFLG IS SET 
POINTS ONE BEFORE "DU" IN THE 
HTSTORY STRING FOR PRIMARY ITEM 
UPDATE 

RESERVED 


POINTS TO THE LOCATION OF THE FILE# 


DEFINING ELEMENT IN IS 

POINTS TO THE LOCATION OF IB WHEN 
THE CURRENT FILE*DEFINING ELEMENT 
WAS FOUND 

RESERVED 


ALSO NOTE ELEMENTS USED BY THE CONVERSION PROCESSOR 
CONVERSION PROCESSOR AND FUNCTION PROCESSOR INTERFACES 


THESE PROCESSORS ARE CALLED AS SUBROUTINES, AND MAY BE 
USED BY USEReWRITTEN ROUTINES. FOR MORE INFORMATION, 
SEE THE CONV AND FUNC DOCUMENTATION, 


FRWSP 


FRWSP (9, TAPETO#])» 
FUNCTIONAL DESCRIPTION 


THIS ROUTINE IS USED TO FORWARD#*SPACE THE TAPE BY ONE 
RECORD. IT DOES THIS BY SETTING R15 TO LOCATION X!1FF!* IN 
THE PCB AND ENTERING TPREADS FOR MORE INFORMATION, SEE THE 
TPREAD DOCUMENTATION, 


FUNC 


FUNC (0,FUNC1)®« 
FUNCTIONAL DESCRIPTION 


THIS ROUTINE IS USED TO PROCESS “F* CONVERSIONS AND 
CORRELATIVES, AND IS CALLED MAINLY BY THE ENGLISH LIST ANO 
SORT PROCESSORS. EACH CALL TO FUNC RETURNS ONE VALUE. ON 
THE FIRST CALL, TALLIES CTR1i2 AND CTR13 ARE BOTH SET TO ONES 
WHEN FUNC RETURNS A VALUE, THE TERMINAL DELIMITER OF THE 
RETURNED STRING DETERMINES WHAT ACTION TO TAKE ON SUBSEQUENT 
CALLS =» <A VM INDICATES INCREMENT OF CTR13 BEFORE THE NEXT 
CALL$ A SVM INDICATES INCREMENT OF CTR123 AN AM INDICATES 
ENO OF PROCESSING. FOLLOWING IS A PROGRAMMING EXAMPLE 
ILLUSTRATING USE OF THIS ROUTINES 


“ONE CTR13 SET VALUE # TO ONE 
FC1 ONE. CTR1ia2 SET SUBeVALUE # TO ONE 
FCe BSL FUNC 


STORE VALUE FROM IR 


DEC R15 
BCE AM,R15,END END OF PROCESSING 

INC CTRi2 INCREMENT SUB*VALUE COUNT 
BCE SVM,R1S5.FC2 GET NEXT SUBeVALUE 

INC CTR13 INCREMENT VALUE COUNT 

B FC. GET NEXT VALUE AND 

CMNT « RESET SUB=VALUE COUNT 

END EQU tk CONTINUE 
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INPUT INTERFACE 


SR1 


SRO 


SR4 


FUNC 


TSBEG 


D9 


CTR1I3 


CTRi2 


DFLG 
XFLG 


OUTPUT INTERFAC 


IR 


R15 


Is 


MFLG 
ELEMENT USAGE 


GMBIT 
WMBIT 


.) 


B 
B 


E 


R 


POINTS TO THE FIRST CHARACTER IN THE 
FUNCTION CODE STRING (NORMALLY "F*) 


POINTS ONE BEFORE THE COUNT FIELD OF THE 
ITEM BEING PROCESSED 


POINTS TO THE LAST AM OF THE ITEM BEING 


PROCESSED 


POINTS 350 BYTES PRIOR TO THE AREA WHERE 
THE RETURNEN VALUE IS TO BE STORED 


CONTAINS THE “JTEM NUMBER" CURRENTLY 
BEING PROCESSEDs REQUIRED ONLY FOR "NI" 
ELEMENTS IN THE FUNCTION CODE STRING 


CONTAINS THE "VALUE NUMBER" CURRENTLY 
BEING PROCESSED, #1 ON INITIAL ENTRY 


CONTAINS THE "SUB*VALUE NUMBER" (De 
SUB*VALUE) CURRENTLY BEING PROCESSED, 21 
ON INITIAL ENTRY 


20 (USED BY LIST AND SORT PROCESSORS) 


POINTS ONE BEFORE THE VALUE RETURNED, AT 
TSBEG*3503 THE VALUE IS DELIMITED BY AN 
AM IF NONE OF THE REFERENCED FIELDS 
CONTAINED MULTIPLE OR SUB@MULTIPLE 
VALUES, BY A VM IF AT LEAST ONE OF THE 
REFERENCED FIELDS CONTAINED A VM ON THIS 
ENTRY.» AND BY A SVM IF AT LEAST ONE OF 
THE REFERENCED FIELDS CONTAINED A SVM ON 
THIS ENTRY 


POINTS TO A BLANK FOLLOWING THE TERMINAL 
DELIMITER OF THE VALUE 


POINTS TO THE AM, OR ONE PAST A VM, 
TERMINATING THE FUNCTION STRING 


zQ IF CONV IS CALLED 
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FUNC 


UTILITY 


Uv 

> 
HANNA MANRMNIOCH AAA 
++eteeeedete_eoetee e+ 


USED RY MBOSUB 


| 
put 
we aw | 
+ 


OTHER ELEMENTS AS USED BY CONV FOR SPECIFIED 
CONVERSIONS 


SUBROUTINE USAGE 


MBDSUB: CVOR153 CVODIS CONV FOR EXPLICITLY SPECIFIED 
CONVERSTONS IN THE FUNCTION STRING? TWO INTERNAL 
SUBROUTINES 


AT LEAST FOUR ADDITIONAL LEVELS OF SUBROUTINE LINKAGE 
REQUITREDs FOR EXPLICITLY SPECIFIED CONVERSIONS, ONE 


LEVEL REQUIRED FOR CONV, WITH ADDITIONAL LEVELS AS 
REQUIREM BY THE INDIVIDUAL CONVERSIONS 


EXITS 


TQ MD994 WITH MESSAGE 701 (VALUE IN C1) ANOQ RMODE ZERO 
IF A FORMAT ERROR IS FOUND IN THE FUNCTION STRING 


GBMS 


GBMS (3,DISKFITOW#II)e 


FUNCTIONAL DESCRIPTION 


GRMS SETS UP THE BASE FIO. MODULO, AND SEPARATION PARAMETERS 
OF A FILE FROM ITS FILE OEFINITION ITEM, TYPICALLY THIS 
ROUTINE IS CALLED AFTER A CALL TO RETIX WHICH RETRIEVES THE 
FILE*DEFINITION ITEM FROM THE MASTER DICTIONARY, 
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THE ROUTINE HANDLES BOTH 'D!* ANDO #@! CODE ITEMS3 A 'D! CODE 
ITEM (OR 'OX!' OR 'DY') IS A NIRECT FILE*POINTER, AND HAS THE 
BASE FID, MODULO, AND SEPARATION OF THE FILE IN ATTRIBUTES 
eo 3. AND 4, A 'Q@!' CODE ITEM TS A SYNONYM POINTER TO A FILE 
NEFINEOD IN ANY ACCOUNT IN THE SYSTEM DICTIONARY, CODES 
OTHER THAN 'DN', 'DX', "DY', OR 'H' ARE NOT CONSIDERED VALID 
FOR FILE*DEFINITYON ITEMS, AND GBMS WILL EXIT WITH RMBIT 
ZERO IN THESE CASES. 


THIS SUBROUTINE ALSO PERFORMS THE FILE ACCESSePROTECTION 
CHECKS, IT I8 ASSUMED THAT REGISTER LOCKSR POINTS TO THE 
USER'S LOCK CODES (CIN HIS LOGON ENTRY IN THE SYSTEM 
NICTIONARY)$ IF THE FILE HAS A LOCK CODE, A MATCHING LOCK 
CODE IS REQUIRED FOR GRAMS TO RETURN SUCCESSFULLY. A 
NON@MATCH CAUSES AN EXYT TO WRAPUP WITH MESSAGE 210. 


INPUT INTERFACE 


DAF 4 B IF ZERO, RETRIEVAL LOCKeCODES IN THE 
LOGON ENTRY ARE USED FOR LOCK*eCODE 
COMPARISON? IF SET, UPDATE LOCK CODES 
ARE USED 


IR R POINTS TO, OR ONE PRIOR TO THE 'O' OR 
'Q! CODE IN ATTRIBUTE 1 OF THE 
FILE*®DEFINITION ITEM 


SR4 S POINTS TO THE AM AT THE END OF THE 
FILE*DEFINITION ITEM 


LOCKSR 8 POINTS ONE PRIOR TO THE USER'S LOCKeCODE 
FIELD IN HIS SYSTEM DICTIONARY ENTRY 


OUTPUT INTERFACE 


GRMS 

RMBIT B SET TF BASE, MOOULO, AND SEPARATION ARE 
SUCCESSFULLY CONVERTEDS ZEROED IF’ THE 
FILE DEFINITION ITEM IS IN BAD FORMAT OR 
A 'Q@?' ITEM YS NOT FOUND 

BASE D0 + CONTAIN THE BASE, MODULO, AND SEPARATION 

MODULO T + OF THE FILE (CIF RMBIT IS SET) 

SEPAR T °¢ 

IR R POINTS YO THE AM FOLLOWING ATTRIBUTE 4 
OF THE FILE*NEFINITION ITEM (IF 


ATTRIBUTE 1 8 'D', 'OX!', 'DY', OR 'O!) 


THE FOLLOWING ELEMENTS ARE ALTERED ONLY IF THE FILE 
ACCESS@PROTECTION TEST FAILS (FILE ACCESS IS DENIED)! 


Ci al eBid 


RMODE D =0 
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POFLG B 0 
HSEND 5 =HSKEG 


ELEMENT USAGE 


Ri4 S USED IF LOCK CODES ARE PRESENT IN THE 
FILE*DEFINITION ITEM 

SYSRO S +¢ 

SYSR! S + USED WITH 'O' CODE ITEMS 

SYSRe S + 


SUBROUTINE USAGE 
CVDRISs GMMBMS AND RETIX FOR 'Q' CODE ITEMS 
FIVE ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED 
FOR 'Q° CODE ITEMS: TWO ANDITIONAL LEVELS REQUIRED FOR 
'O' CODE ITEMS 

EXITS 


GRMS 


TO MD995 IF LOCK CODE COMPARTSON TEST FAILS 


GDLID 


GOLTO (13,SYSTEM=SUBS-II)* 
FUNCTIONAL DESCRIPTION 
THIS ROUTINE GETS THE BASE, MODULO, AND SEPARATION 
PARAMETERS FROM THE DL/ID ITEM TN A DICTIONARY, TYPICALLY 
GDOLID IS CALLED IMMEDIATELY AFTER THE OICTIONARY BASE, 
MODULO, AND SEPARATION HAVE BEEN OBTAINED BY GBMS, 


BOLID RETRIEVES THE DL/ID ITEM FROM THE DICTIONARY, AND THEN 
ENTERS GBMS TO PICK UP ITS BASE, MODULO, AND SEPARATION, 


INPUT INTERFACE 


BASE D + CONTAIN THE BASE, MODULO, AND SEPARATION 
MODULO T ¢ OF THE FILE WHOSE OL/IO ITEM IS TO BE 
SEPAR T + OBTAINED 


OUTPUT INTERFACE 


RMBIT 8 SET IF THE DL/ID ITEM IS SUCCESSFULLY 
RETRIEVEDs ZEROED BY RETIX IF NO OL/ID 
ITEM ITS FOUND. OR BY GBMS JF THE ITEM IS 
IN BAD FORMAT OR A "Q* ITEM IS NOT FOUND 
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BMSEND S °¢ 
RECORD D + 
NNCF H + 
FRMN D + 
FRMP D +¢ AS SET BY RETIX 
NPCF H + 
XMODE T ¢ 
DAFY B + 
SIZE tT + 
SR4 S + 
IR R «+ AS SET BY GBMS IF THE DL/IO ITEM IS 
Ria R + FOUND, OTHERATSE AS SET BY RETIX 
BASE D + AS SET BY GBMS JF THE OL/SID ITEM fY8 
MODULO T + FOUND, OTHERWISE UNCHANGED 
SEPAR T ¢ 
GOLID 
BMS R + sRMSBEG 
SYSR1 S -¢ 


ELEMENT JSAGE 
ELEMENTS USED BY GBMS, IF THE DL/IDO ITEM IS FOUND 
SUBROUTINE USAGE 


RETIX AND ROUTINES CALLED RY ITs ROUTINES CALLED BY 
GBMS IF THE DL/ID ITEM ITS FOUND 


FIVE ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIREO 


IF THE DL/ID ITEM ITS A "QO" POINTER, OTHERWISE FOUR 
ADDITIONAL LEVELS REQUIRED 


GETACBMS 


GETACBMS (1,LOGOFF)* 
FUNCTIONAL DESCRIPTION 


THIS ROUTINE RETRIEVES THE RASE, MODULO, AND SEPARATION OF 
THE SYSTEM ACCOUNT FILE. 


INPUT INTERFACE 


NONE 
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OUTPUT INTERFACE 


BASE D + CONTAIN THE RASE, MODULO, AND SEPARATION 
MODULO JT + OF THE ACCOUNT FILE, JF FOUND 
SEPAR T + 
RMBIT B SET IF THE ACCOUNT FILE IS FOUND (FROM 
RETITX AND GBMS) 
RE J! T 2331 JF THE ACCOUNT FILE IS NOT FOUND, 
OR IF THE FILE*DEFINITION ITEM IN THE 
SYSTEM MASTER DICTIONARY {IS IN BAD 
FORMAT, OTHERWISE UNCHANGED 
IR R POINTS TO THE AM AFTER ATTRIBUTE 4 OF 
THE ACCOUNT FILE*DEFINITION [TEM (FROM 
GRMS) 
ELEMENT USAGE 
SR Ss USED TO SAVE BMSBEG 
T6 T USED TO SAVE USER 
BMS R USEN IN CALLING RETIX 
SUBROUTINE USAGE 
GMMBMS, RETIX, GBAMS 


FOUR ADDITIONAL LEVELS 


GETBUF 


GETBUF 


FUNCTIONAL DESCRIPTION 


OF SUBROUTINE LINKAGE REQUIRED 


(S,TERMIO)*« 


THIS ROUTINE ACCEPTS INPUT DATA FROM THE TERMINAL AND 
PERFORMS SOME EDITING ON’ THE CHARACTERS OBTAINED. IT ALSO 
PRINTS AN INITIAL PROMPT CHARACTER AT THE TERMINAL BEFORE 
READING INPUT, CONTROL IS RETURNED WHEN A NON@EDITING 


CONTROL CHARACTER IS INPUT, 


OR WHEN THE NUMBER OF CHARACTERS 


SPECIFIED IN TO HAS BEEN INPUT AND BIT TITFLG IS ZERO (SEE 
BELOW), 
EDITING FEATURES 
CONTROLe&H LOGICALLY BACKSPACES THE BUFFER 
POINTERs ECHOES THE CHARACTER IN 
BSPCH 
CONTROL@X LOGICALLY DELETES THE ENTIRE INPUT 
BUFFERs ECHOES A CR/LF. AND PRINTS 


THE PROMPT CHARACTER IF BIT FRMTFLG 
IS ZERO 
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CONTROLeR 


RUBOUT 


CONTROL@SHIF T#K 
CONTROL@SHIFTeL 
CONTROL@SHIFTeM 
CONTROL#SHIFT@N 
CONTROL@SHIF TO 


NOTES EXCEPT F 
ORDER BIT OF EA 


INPUT INTERFACE 


FRMTFLG B 
GETRUF 

TITFLG B 

BSPCH C 

PRMPC C 

TO T 

Rid R 


OUTPUT INTERFACE 


Ri5 R 


ELEMENT USAGE 


Re3Co Cc h(6¢ 
00 ) + 


RETYPES THE INPUT LINE IF 86IT 
FRMTFLG YS ZERO 


IGNOREO? THE CHARACTER IS ECHOED, 
BUT IS NOT STORED IN THE BUFFER 


THESE CHARACTERS ARE CONVERTED TO 
THE INTERNAL DELIMITERS S88. SVM, 
VM, AM, AND SM, RESPECTIVELY? THEY 
ECHO AS THE CHARACTERS [. /s Je Te 
AND ¢ 


+++ 


OR SYSTEM DELIMITER CONVERSION, THE HIGH 
CH CHARACTER INPUT IS ZEROED. 


TF SET, CONTROL#=X CAUSES BACKSPACES TO 
THE BEGINNING OF THE INPUT AREA INSTEAD 
OF CR/LF TO A NEW INPUT LINE® ALSO, 


CONTROL®R IS TGNORED 


IF SET. CONTROL WILL NOT 8E RETURNED 
WHEN THE NUMBER OF CHARACTERS SPECIFIED 
IN TO HAS BEEN INPUT UNLESS” A 
NONeEDITING CONTROL CHARACTER IS ENTERED 


CONTAINS THE CHARACTER TO BE ECHOED TO 
THE TERMINAL WHEN THE BACK SPACE KEY IS 


PRESSED 

CHARACTER OUTPUT AS A "PROMPT" WHEN 
INPUT IS FIRST REQUESTED, AND AFTER 
CERTAIN EDITING OPERATIONS 


CONTAINS THE MAXTMUM NUMBER OF 
CHARACTERS TOC BE ACCEPTED 


POINTS ONE BYTE G6EFORE THE BEGINNING OF 
THE INPUT RUFFER AREA 


POINTS TO THE CONTROL CHARACTER CAUSING 
RETURN TO THE CALLING ROUTINE 


SCRATCH 


SUBROUTINE USAGE 
NONE 


GETITM 


GETITM (O,DISKFIOeII)»« 
FUNCTIONAL DESCRIPTION 


THIS ROUTINE SEQUENTIALLY RETRIEVES ALL ITEMS IN A FILE. IT 
IS CALLED REPETITIVELY TO OBTAIN ITEMS ONE AT A TIME UNTIL 
ALL ITEMS HAVE BEEN RETRIEVED. THE ORDER IN WHICH THE ITEMS 
ARE RETURNED IS THE SAME AS THE STORAGE SEQUENCE, 


IF THE ITEMS RETRIEVED ARE TO BE UPDATED BY THE CALLING 
ROUTINE (USING ROUTINE UPDITM), THIS SHOULD BE FLAGGED TO 
GETITM BY SETTING BIT DAFi., FOR UPDATING, GETITM PERFORMS A 
TWOMSTAGE RETRIEVAL PROCESS BY FIRST STORING ALL ITEMeIDS 
(PER GROUP) IN A TABLE. AND THEN USING THIS TABLE TO 
ACTUALLY RETRIEVE THE ITEMS ON EACH CALL. THIS IS NECESSARY 
BECAUSE, IF THE CALLING ROUTINE UPDATES AN ITEM, THE DATA 
WITHIN THIS GROUP SHIFTS AROUND? GETITM CANNOT SIMPLY 
MAINTAIN A POINTER TO THE NEXT ITEM IN THE GROUP, AS IT DOES 
IF THE "UPDATE" OPTION IS NOT FLAGGED. 


AN INITIAL ENTRY CONDITION MUST ALSO BE FLAGGED TO GETITM BY 
ZEROING BIT DAF? BEFORE THE FIRST CALL, GETITM THEN SETS UP 
AND MAINTAINS CERTAIN POINTERS WHICH SHOULD NOT BE -ALTERED 
BY CALLING ROUTINES UNTIL ALL THE ITEMS IN THE FILE WAVE 
BEEN RETRIEVED COR DAF7 IS ZEROED AGAIN), 


NOTE THE FUNCTYONAL EQUIVALENCE OF THE OUTPUT INTERFACE 
ELEMENTS WITH THOSE OF RETIX, 


INPUT INTERFACE 


DAF? B INITIAL ENTRY FLAGS MUST BE ZEROED ON 
THE FIRST CALL TO GETITM 

DAF 1 B IF SET, THE “UPDATE*® OPTION IS IN EFFECT 

DBASE D «+ CONTAIN THE BASE, MODULO, AND SEPARATION 

OMOD T ¢ OF THE FILE 

DSEP T *¢ 

BMSBEG R POINTS ONE PRIOR TO AN AREA WHERE THE 


ITEMeID OF THE ITEM RETRIEVED ON EACH 
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GETITM 


CALL MAY BE COPIED 


OVRFLCTR OD MEANINGFUL ONLY IF OAFi {fS SETs IF 
NONeZERO, THE VALUE IS USED AS THE 
STARTING FID OF THE OVERFLOW SPACE TABLE 
WHERE THE LIST OF ITEMeIOS IS STORED? ITF 
ZERO, GETSPC IS CALLED TO OBTAIN SPACE 
FOR THE TABLE 


OUTPUT INTERFACE 


RMBIT B + 

SIZE T ¢ 

Rid R + (SEE RETIX DOCUMENTATION) 

IR R °¢ 

SRG 8 ¢ 

XMODE Y ¢ 

SRO 8 2Ri4 IF DAF1 IS SET. OTHERWISE AS SET BY 

GNSEQT 
BMS R AS SET BY RETIX IF DAFi IS SET, 


OTHERWISE AS SET BY GNSEQT 
BMSEND S 2BMS IF DAF1 IS SET, OTHERWISE UNCHANGED 


DAF9 8 =0 
ELEMENT USAGE 


BASE 
MODULO 
SEPAR 
RECORD 
NNCF 
FRMN 
FRMP 
NPCF 


USED BY GETITM AND OTHER SUBROUTINES FOR 
ACCESSING FILE DATA 


zrooro4a409 
++e+# ee eee 


USED BY GETSPC IF DAFi IS SET AND 
OVRFLCTR YS INITIALLY ZERO 


OVRFLW 


oC 


GETITM 


THE FOLLOWING ELEMENTS SHOULD NOT BE ALTERED BY ANY 
OTHER ROUTINE WHILE GETITM IS USED: 


DAF 1 B «+ (SEE INPUT INTERFACE) 
DAF? 8 + 
DBASE D CONTAINS THE BEGINNING FIO OF THE 


CURRENT GROUP BEING PROCESSED 
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DMOD T CONTAINS THE NUMBER OF GROUPS LEFT TO BE 
PROCESSED 

DSEP 7 (UNCHANGED) 

SBASE 0 + CONTAIN THE SAVEO VALUES OF OBASE,. DMOD, 

SMOD T + AND DSEP WHEN THE ROUTINE WAS’ FIRST 

SSEP T ¢# CALLED 


NXTITM S POINTS ONE BEFORE THE NEXT ITEMeID IN 
THE PRE@#STORED TABLE IF ODAFI IS SET, 
OTHERWISE POINTS TO THE LAST AM OF THE 
ITEM PREVIOUSLY RETURNED 


OVRFLCTR OD CONTAINS THE STARTING FID OF THE 
OVERFLOW SPACE TABLE IF DAFi1 IS SET, 
OTHERWISE UNCHANGED 
SUBROUTINE USAGE 


RCREC, GNSEQIs GNTBLI (LOCAL). RETIX., ANDO GETSPC (CIF 
OVRFLCTR 20) IF DAF1 IS SET 


BMSOVF USED WITH XMODE 

FOUR ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REGUIRED 
ERROR CONDITIONS 

SEE RETIX DOCUMENTATION (*"EXITS")3 GETITM, HOWEVER, 


CONTINUES RETRIEVING ITEMS UNTIL NO MORE ARE PRESENT 
EVEN AFTER THE OCCURANCE OF ERRORS, 


GETOPT 


GETOPT (15,SYSTEM#SUBS+J)* 
FUNCTIONAL DESCRIPTION 


THIS ROUTINE PROCESSES AN OPTION STRING CONSISTING OF SINGLE 
ALPHABETIC CHARACTERS AND/OR A NUMERIC OPTION, SEPARATED BY 
COMMAS, 


A NUMERIC OPTION CONSISTS OF A STRING OF NUMERIC CHARACTERS 
OR A PAIR OF SUCH STRINGS SEPARATED BY A HYPHEN OR PERIOD. 
IF A NUMERIC STRING IS IMMEDIATELY PRECEDED @Y A PERIOD, IT 
IS TREATED AS HEXADECIMAL. IF THE OPTION STRING CONTAINS 
MORE THAN ONE NUMERIC OPTION, THE LAST ONE WILL BE USED. 


ALPHABETIC OPTIONS SET THE CORRESPONDING BITS (*A" SETS 
ABIT, ETC.). BUT THESE BITS ARE NOT ZEROED UPON ENTRY. 


THE OPTION STRING BEGINS ONE PAST THE ADDRESS POINTED TO BY 
REGISTER IB. AND MUST END WITH A RIGHT PARENTHESIS (€")") OR 
SM. 


INPUT INTERFACE 
IB R POINTS ONE BEFORE THE OPTION STRING 


OUTPUT INTERFACE 


ABIT B *¢ 

- + 

e ¢ SET AS DESCRIBED ABOVE 

a * 

ZBIT B ¢ 

NUMFLG1 B SET IF 1 NUMERIC OPTION IS FOUND 

NUMFLGe 8 SET IF @ND NUMERIC OPTION IS FOUND 

RMBIT ] SET IF NO ERRORS ARE FOUND IN THE OPTION 
FORMAT, OTHERWISE UNCHANGED 

D4 'y) SVALUE OF THE FIRST NUMBER IN A NUMERIC 
OPTION, IF FOUND, OTHERWISE UNCHANGED 

GETOPT 

D§ 0 SsVALUE OF THE SECOND NUMBER IN A NUMERIC 
OPTION, IF FOUND 204 IF A NUMERIC 
OPTION CONSISTS OF <A SINGLE NUMBER? 
OTHERWISE UNCHANGED 

18 R POINTS TO THE LAST CHARACTER PROCESSED 


(=*)" OR SM FOR A VALID OPTION STRING) 
ELEMENT USAGE 
NONE (EXCEPT DO AND 01) 
SUBROUTINE USAGE 


CVOIB IF A DECIMAL NUMERIC OPTION IS FOUND# CVXIB IF A 
HEXADECIMAL NUMERIC OPTION IS FOUND 


TWO ADDITIANAL LEVELS OF SUBROUTINE LINKAGE REQUIRED 
GETOVF, GETSPC, ATTOVF, ATTSPC, GETBLK 


GETOVF (1,0F1)* 
GETSPC (9,0F1)« 
ATTOVF (0,0F1)* 
ATTSPC (10,0F1)* 
GETBLK (5,0Fi)»s 
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FUNCTIONAL DESCRIPTION 


THESE ROUTINES OBTAIN OVERFLOW FRAMES FROM THE OVERFLOW 
SPACE POOL MAINTAINED 8Y THE SYSTEM. GETBLK IS USED TO 
OBTAIN A BLOCK OF CONTIGUOUS SPACE (USED MAINLY BY THE 
CREATE*FILE PROCESSOR): THE OTHER ROUTINES OBTAIN A SINGLE 


FRAME, 


GETOVF AND GETSPC ZERO ALL THE LINK FIELOS OF THE FRAME THEY 
RETURN, ATTOVF AND ATTSPC LINK THE FRAME TO THE FRAME 
SPECIFIED IN DOUBLE TALLY RECORD: THE FORWARD LINK FIELD OF 
THE FRAME SPECIFIED IN RECORD IS SET TO POINT TO THE 
OVERFLOW FRAME OBTAINED, THE BACKWARD LINK OF THAT FRAME IS 
SET TO THE VALUE OF RECORD, AND THE OTHER LINK FIELDS OF THE 
OVERFLOW FRAME ARE ZEROED. THE LINK FIELOS OF THE FRAME(S) 
OBTAINED BY GETBLK ARE NOT RESET OR INITIALIZED IN ANY WAY @ 
THIS IS A FUNCTION OF THE CALLING PROGRAM, 


THESE ROUTINES CANNOT BE INTERRUPTED UNTIL PROCESSING I8 
COMPLETE. , 


INPUT INTERFACE 


DO D CONTAINS THE NUMBER OF FRAMES NEEDED 
(BLOCK SIZE), FOR GETBLK ONLY 


RECORO D CONTAINS THE FIO OF THE FRAME TO WHICH 
AN OVERFLOW FRAME IS TO BE LINKED (FOR 
ATTOVF AND ATTSPC ONLY) 


OUTPUT INTERFACE 


OVRFLW D IF THE NEEDED SPACE IS OBTAINED, THIS 
ELEMENT CONTAYNS THE FIO OF THE FRAME 
RETURNED (FOR GETOVF, GETSPC, ATTOVF, 
AND ATTSPC) OR THE FID OF THE FIRST 
FRAME IN THE BLOCK RETURNED (FOR 


GETOVF. GETSPC, ATTOVF, ATTSPC, GETBLK 


GETBLK)8’ IF THE SPACE IS UNAVAILABLE, 
OVRFLWr0 


ELEMENT USAGE 


FRMN 9) USED BY ATTOVF AND ATYSPC ONLY 
00 OD ¢ 

01 Dn ¢ 

Ria R ¢@¢ UTILITY 

R15 R ° 

SYSRO S ¢ 

De D ¢ USED BY SYSGET 

SYSRi S °¢ 


| SUBROUTINE USASE 


| SYSGET (BUT NOT USED BY THE SINGLEeFRAME ROUTINES IF A 
| FRAME IS OBTAINED FROM A MULTIPLE*FRAME BLOCK IN THE 
SYSTEM OVERFLOW TABLE)3 THREE INTERNAL SUBROUTINES? 
NOSPACE CALLEO BY GETSPC AND ATTSPC IF NO FRAMES ARE 


AVAILABLE 


| TWO ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED BY 
GETOVF, ATTOVF., ANO GETALK? THREE LEVELS REQUIRED BY 


GETSPC AND ATTSPC 


EXITS 


FOR GETSPC AND ATTSPCs TO NSPCQ IF NO MORE FRAMES ARE 
AVAILABLE AND PROCESSING IS ABORTED BY THE USER? THIS 
IS A FUNCTION OF NOSPACE 


GETUPD 


GETUPD (7,DISKFIO#el)« 


FUNCTIONAL DESCRIPTION 


GETUPD INITIALIZES THE UPD REGISTER TRIAD TO POINT TO THE 
UPD WORK SPACE (FRAME PCB428), 


INPUT INTERFACE 
NONE 
OUTPUT INTERFACE 


| UPD R + POINT TO THE FIRST DATA BYTE OF THE 
: UPOBEG S$ + FRAME 28 FRAMES AFTER THE PROCESS'S PCB 


| UPDEND s POINTS TO THE LAST BYTE OF THE ABOVE 
FRAME 


ELEMENT USAGE 


NONE 
| SUBROUTINE USAGE 
NONE 


GETUPD 


GROUP LOCKS 


A TABLE OF FILE GROUPS WHICH ARE LOCKEO FOR UPDATE IS KEPT 
IN THE SYSTEM, A GROUP IS UNLOCKED WHEN AN JTEM IS UPDATED 
IN THAT GROUP BY THE SUBROUTINE UPDITM, THE FILE#SAVE 
PROCESSOR LOCKS EACH GROUP WHILE SAVING IT. BASIC AND PROC 
"READ FOR UPDATE’ COMMANDS USE THESE LOCKS, 


GLOCK 0.GLOCK LOCK THE GROUP WHOSE STARTING FID 
IS IN 'RECORD!, 
GUNLOCK 1.GLOCK UNLOCK THE GROUP WHOSE STARTING 


FIO IS IN 'RECORD!, 
GUNLOCK LINE 2,GLOCK UNLOCK ALL GROUPS LOCKED BY 
THE CALLING PROCESS, 


GMMBMS 


GMMBMS (4,0F1)* 
FUNCTIONAL DESCRIPTION 
GMMBMS SETS UP POINTERS TO THE SYSTEM DICTIONARY, 
INPUT INTERFACE 
NONE 


OUTPUT INTERFACE 


BASE D + CONTAIN THE BASE, MODULO, AND SEPARATION 
MODULO T + OF THE SYSTEM DICTIONARY 
SEPAR tT * 


ELEMENT USAGE 
NONE 

SUBROUTINE USAGE 
NONE 


GPCBO 


GPCBO (4,A8SLi)* 
FUNCTIONAL DESCRIPTION 
GPCBO RETURNS THE FID OF THE PCB FOR LINE ZERO IN TRE 
ACCUMULATOR, DO. THE 16 HIGHeORDER BITS OF DO ARE SET TO 


ZERO. NO OTHER INTERFACE OR’ ELEMENT USAGE IS ASSOCIATED 
WITH THIS ROUTINE. 
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ISINIT 


ISINIT C€2,.TCL#INIT)* 
FUNCTIONAL DESCRIPTION 


ISINIT SIMPLY INVOKES WSINIT AND HSYSOS TO INITIALIZE ALL 
THE PROCESS WORK SPACE POINTERS. 


INPUT AND OUTPUT INTERFACES 
SEE WSINIT AND HSTSOS DOCUMENTATION, 
ELEMENT USAGE 
NONE (EXCEPT 00) 
SUBROUTINE USAGE 
WSINIT, HSISOS 
THREE ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED 


ITPIB, TPIB, OBTP. FOBTP 


ITPIB (C2eTAPEIO#I)* 
TPIB (3, TAPETOeI)« 
OBTP (1, TAPEIO#l)* 

FOBTP (€0,TAPETO#I)* 


FUNCTIONAL DESCRIPTION 


THESE ROUTINES ALLOW READING AND WRITING VARTABLE LENGTH 
RECORDS, BLOCKED IN FIXEDeLENGHTH RECORDS WHOSE SIZE IS 
DETERMINED BY THE "TeATT (N)" VERB. THE UNBLOCKED DATA IS 
PASSED TO THE WRITE ROUTINE (OBTP) IN THE OBF IT IS PASSED 
FROM THE READ ROUTINE CIATP) IN THE IB, 


READING A BLOCKED TAPES AN INITIAL CALL MUST BE MADE TQ 
ITPIB TO INITIALIZE THE DE*BLOCKING POINTERS? SUBSEQUENTLY, 
EACH CALL TO TPYB WILL RETURN ONE TAPE RECORD. 


WRITING A BLOCKED TAPE’ THE DATA TO BE WRITTEN TO THE TAPE 
IS PLACED IN TRE OB, AND OBTP IS CALLED TO STORE IT IN THE 
BLOCKING AREA, THE INITIAL CALL MUST SET REGISTER OS _ TO 
BYTE ZERO OF THE TAPE BUFFER (FRAME FFFFI0), AND SET TALLY 
T4 TO THE RECORD SIZE. WHEN THE OUTPUT IS TO BE TERMINATED, 
ONE CALL TO FOBTP MUST BE MADE TO CLEAR THE BLOCKING AREA 
AND FORCE THE DATA TO BE WRITTEN TO THE TAPE, 


THESE ROUTINES USE THE DELIMITER SB (X'FB!) AS THE BLOCK 


DELIMITERS THEREFORE, S8'S IN THE DATA TO BE WRITTEN TO 
TAPE ARE CONVERTED TO BLANKS BEFORE BEING OUTPUT, 
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INPUT INTERFACE 


IBBEG ) 
OBBEG $ 
OS R 
08 R 


ITPIB, TPIB. OBTP. 


Ta T 


OUTPUT INTERFACE 


IB R 
IBEND s 
08 R 


ELEMENT USAGE 


CMODE T 
R14 R 
R15 R 
DO D 
D1 ) 
Resco T 
CTR1 T 
BYTESRD T 
SYSRO 3 
SYSR1 S 
SCO C 


#2+ + 


POINTS ONE PRIOR TO THE BUFFER’ AREA 
WHERE OERLOCKED DATA I8 TO BE COPIED, 
FOR TPIB 


POINTS ONE PRIOR TO THE BUFFER AREA 
CONTAINING DATA TO BE BLOCKED, FOR OBTP 


POINTS TO THE FIRST BYTE OF THE TAPE 
BUFFER AREA (FRAME FFFF10), FOR OBTP 


POINTS TO THE LAST BYTE OF DATA, FOR 
OBTP? A&A SB IS PLACED ONE PAST THIS 


FOBTP 


LOCATION BY THE ROUTINE 


CONTAINS THE TAPE BUFFER SIZE IN BYTES, 
FOR OBTP 


EIBBEG, FOR TPIB 


POINTS TO A SM OVERWRITING THE SB AT THE 
ENO OF THE INPUT BLOCK, FOR TPIB 


sQBBEG, FOR OBTP 


UTILITY 


AS USED BY TPREAD AND TPWRITE 


USED TO HOLD POSITION IN BLOCKING 


USEN BY ORTP 


USED 8Y TPIB® AND OBTP (CONTAINS A 8B ON 
EXIT) 


ELEMENTS USED BY RDPARITY ANO FRMDMP IF RDPARITY IS 
CALLED BY TPREAD 
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SUBROUTINE USAGE 


TPREAD (FOR ITPIB AND TPIA) OR TPWRITE (FOR OBTP AND 
FORTP): TWO INTERNAL SUBROUTINE CALLS FOR OBTP. FOBTP, 
AND TPIB 


uP TO TEN ADDITIONAL LEVELS OF SUBROUTINE LINKAGE 


TTPIB, TPIB, OBTP., FOBTP 
REQUIRED FOR ITPIB AND TPIB (SEE TPREAD DOCUMENTATION) 3 
FIVE LEVELS REQUIRED BY OBTP AND FOBTP 


LINK 


LINK (9,DISKFIOQOe!r)« 
FUNCTIONAL DESCRIPTION 


THIS ROUTINE CREATES A LIYNKED GROUP FROM A BLOCK OF 
CONTIGUOUS FRAMES. UP TO 127 FRAMES CAN BE SO LINKED. FOR 
EACH FRAME IN THE GROUP, THE ROUTINE SETS UP THE FIELDS 
SPECIFYING THE NUMBER OF NEXT CONTIGUOUS FRAMES, THE NEXT OR 
FORWARD LINK, THE PREVIOUS OR BACKWARD LINK, AND THE NUMBER 
OF PREVIOUS FRAMES, 


INPUT INTERFACE 


RECORD D CONTAINS THE FIRST FIDO OF THE GROUP TO 
BE LINKED 


NNCF 4 CONTAINS ONE LESS THAN THE NUMBER OF 
FRAMES IN THE GROUP (MAY BE ZERO, BUT IS 
ALWAYS LESS THAN 127) 


OUTPUT INTERFACE 


Rid R POINTS ONE PRTOR TO THE FIRST DATA BYTE 
OF THE FIRST FRAME IN THE GROUP 


R15 R POINTS TO THE LAST BYTE OF THE LAST 
FRAME IN THE GROUP 


RECORD D CONTAINS THE FID OF THE LAST FRAME IN 
THE GROUP 

NNCF H + 

FRMN D + CONTAIN THE VALUES OF THE LINK FIELDS OF 

FRMP 0 + THE LAST FRAME IN THE GROUP 

NPCF H + 
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ELEMENT USAGE 

NONE (BESIDES R14, R15, AND NO) 
SUBROUTINE USAGE 

NONE 


LINK 


SIXeBYTE BINARY TO STRING CONVERSION 


MBOSUB (0,SYSTEMeSUBSeI)» 
MBDNSUB (1,SYSTEMeSUBSeI)» 


FUNCTIONAL DESCRIPTION 

THESE ROUTINES CONVERT A BINARY NUMBER TO THE EQUIVALENT 
STRING OF OECIMAL ASCII CHARACTERS. MABDSUB RETURNS ONLY AS 
MANY CHARACTERS AS ARE NEEDED TO REPRESENT THE NUMBER, 
WHEREAS MBDNSUB ALWAYS RETURNS A SPECIFIEO MINIMUM NUMBER OF 
CHARACTERS (PADDING WITH LEADING ZEROES OR BLANKS WHENEVER 
NECESSARY). A MINUS PRECEDES THE NUMERIC STRING IF THE 
NUMBER TO BE CONVERTED IS NEGATIVE. 


THESE SUBROUTINES ARE IMPLICITLY CALLED BY THE ASSEMBLER 
INSTRUCTIONS MBD (MOVE BINARY TO DECIMAL) AND MBDN, 


FPO IS DESTROYEN BY THE CONVERSION PROCESS, 
INPUT INTERFACE 
FPO F CONTAINS THE NUMBER TO BE CONVERTED 


Ta T CONTAINS THE MINIMUM NUMBER OF 
CHARACTERS TO BE RETURNED (MBONSUB ONLY) 


BKBIT 8 SET IF LEADING BLANKS WISHED FOR FILL? 
ZERO IF ZEROS 


R15 R POINTS ONE PRIOR TO THE AREA WHERE THE 
CONVERTED STRING IS TO BE STORED (UP TO 
9 BYTES REQUIRED) 
OUTPUT INTERFACE 
R15 R POINTS TO THE LAST CONVERTED CHARACTER 
Ta T =1 FOR MBDSUB, OTHERWISE UNCHANGED 
ELEMENT USAGE 


T5 T 
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MBDSUBS 


Rid R 
SUBROUTINE USAGE 
NONE 


NEWPAGE 


NEWPAGE (1,SYSTEMeSUBSeI J)» 


FUNCTIONAL DESCRIPTION 


THIS ROUTINE IS USED TO - SKIP TO A NEW PAGE ON THE TERMINAL 
OR LINE PRINTER AND PRINT A’ HEADING. NO ACTION Is 
PERFORMED, HOWEVER, IF BIT PAGINATE OR TALLY PAGSIZE IS 
ZERO. 


INPUT INTERFACE 


AS FOR WRTLIN, 
ROUTINE 


THIS 
OUTPUT INTERFACE 

SAME AS FOR 
ELEMENT USAGE 

SAME AS FOR 
SUBROUTINE USAGE 


WRTLIN AND 
AND PAGSIZE 


ADDITIONAL SUBROUTINE 


IS CALLED? 


ADDITIONAL LEVELS OF LINKAGE REQUIRED, 


NEXTIR, NEXTOVF 


EXCEPT OB IS FIRST SET EQUAL TO OBBEG BY 


WRTLIN 


WRTLIN 


ROUTINES CALLED BY IT. IF PAGINATE IS_ SET 


TS GREATER THAN ZERO 
LINKAGE REGUIRED ONLY IF WRITLIN 


SEE WRTLIN DOCUMENTATION FOR THE NUMBER OF 
AND ADD 1 


NEXTIR Ci,WRAPUP@]I)« 
NEXTOVF (3,WRAPUP®#IT) 
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FUNCTIONAL DESCRIPTION 


NEXTIR OBTAYNS THE FORWARD LINKED FRAME OF THE FRAME TO 
WHICH REGISTER IR (R6) CURRENTLY POINTS# IF THE FORWARD 
LINK IS ZERO» THE ROUTINE ATTEMPTS TO OBTAIN AN AVAILABLE 
FRAME FROM THE SYSTEM OVERFLOW SPACE POOL AND LINK IT UP 
APPROPRIATELY (SEE ATTOVF DOCUMENTATION). IN ADDITION, IF A 
FRAME IS OBTAINED, THE IR REGISTER TRIAD IS SET UP BEFORE 
RETURN, USING ROUTINE RDREC. 


NEXTOVEF MAY BE USED IN A SPECIAL wAY TO HANDLE 
ENDeOF*LINKED@FRAME CONDITIONS AUTOMATICALLY WHEN USING 
REGISTER IR WITH SINGLEe OR MULTIPLE*BYTE MOVE OR SCAN 
INSTRUCTIONS (MIID, MIT. OR MCI). TALLY XMODE SHOULD BE SET 
TO THE MODE*ID OF NEXTOVF BEFORE THE INSTRUCTION IS 
EXECUTED? IF THE INSTRUCTION CAUSES IR TO REACH AN 
END@OF eLINKED@FRAME CONDITION CFORWARD LINK ZERO), THE 
SYSTEM WILL GENERATE A SUBROUTINE CALL TO NEXTOVF., WHICH 
WILL ATTEMPT TO OBTAIN AND LINK UP AN AVAILABLE FRAME, AND 
THEN RESUME EXECUTION OF THE INTERRUPTED INSTRUCTION 
(ASSUMING A FRAME WAS GOTTEN). IF THERE ARE NO MORE FRAMES 
IN THE OVERFLOW SPACE POOL, NOSPACE IS CALLED, NOTE THAT 
THE "INCREMENT REGISTER BY TALLY" INSTRUCTION CANNOT BE 
HANDLED IN THIS MANNER, 


NEXTOVF IS ALSO USED BY UPDITM WITH REGISTER TS (R13). IF 
NEXTOVF IS ENTERED WITH TS AT AN END@OFeLINKED@FRAMES 
CONDITION, A BRANCH IS TAKEN TO A POINT INSIDE UPDITM,. 
UNDER ANY OTHER CONDITION (OTHER THAN IR OR TS 
END@eOFeLINKED@FRAME), NEXTOVE IMMEDIATELY ENTERS THE 
DEBUGGER. 


INPUT INTERFACE 
IR R POINTS INTO THE FRAME WHOSE 
FORWARDeLINKED FRAME IS TO BE OBTAINED 
(DISPLACEMENT UNIMPORTANT) 


ACF H FOR NEXTOVF ONLY, MUST CONTAIN X'06! FOR 
TR ENDeOFeLINKEDeFRAME HANDLING (SET 


NEXTIR, NEXTOVF 


AUTOMATICALLY BY MIIDO, MIT, AND MCI 


INSTRUCTIONS) 
OUTPUT INTERFACE 
IR R «+ POINT TO THE FIRST DATA BYTE OF THE 
IRBEG S + FORWARD LINKED FRAME 
TREND S POINTS TO THE LAST BYTE OF THE FORWARD 


LINKED FRAME 
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RECORD D CONTAINS THE FIO OF THE FRAME TO WHICH 


IR POINTS 

R15 R + 

NNCF H ¢ 

FRMYN D «+ AS SET BY ROLINK FOR THE FIO IN RECORD 

FRMP 5 »+¢ 

NPCF H »¢ 

OVRFLW ) SRECORD JF ATTOVF CALLED, OTHERWISE 
UNCHANGED 

ELEMENT USAGE 
Rid R USED BY RDLINK 


ELEMENTS USED BY ATTOVF IF A FRAME JS OBTAINED FROM THE 
OVERFLOW SPACE POOL 


SUBROUTINE USAGE 
RDLINKS ATTOVF IF A FRAME MUST BE OBTAINED FROM THE 
OVERFLOW SPACE POOLS’ NOSPACE IF AYTOVF CANNOT FIND ANY 
MORE FRAMES 
THREE ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED 
EXITS 
NORMALLY RETURNS VIA RODOREC? POSSIBLY TO NSPCQ IF 


NOSPACE USED (SEE NOSPACE DOCUMENTATION); TO S,DB1 IF 
ACF NOT X'06" OR X*O0D" (NEXTOVF ONLY) 


NEXTIR, NEXTOVF 


PCRLF (7, TERMIO)« 
FFOLY (9,TERMIO)* 


FUNCTIONAL DESCRIPTION 


PCRLF PRINTS A CARRIAGE RETURN ANO LINE FEED ON THE TERMINAL 
AND ENTERS FFDLY, WHICH PRINTS A SPECIFIED NUMBER OF DELAY 
CHARACTERS (X'00'). 


INPUT INTERFACE 


LFDLY T CONTAINS THE DELAY COUNT (FOR PCRLF 
ONLY) 
TO tT CONTAINS THE DELAY COUNT (FOR FFODLY 


ONLY) 
OUTPUT INTERFACE 


NONE 
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ELEMENT USAGE 
Rid R 

SUBROUTINE USAGE 
NONE 


PCRLF. FFOLY 


PQ°"INSERT 


POeINSERT IS A SUBROUTINE WHICH WILL INSERT SINGLE OR 
MULTIPLE FIELDS INTO ANY OF THE PROC BUFFERS, 


INPUT INTERFACE 8 


PBUF POINTS TO FIRST BYTE OF RECEIVING FIELD. SENDING FIEL 
MUST BE TERMINATED BY AN ATTRIBUTE MARK, MULTIPLE 
FIELD INSERTS CAN BE ACCOMPLISHED BY SEPARATING 
THE SENDING FIELDS WITH BLANKS, 

IB POINTS TO ONE BYTE BEFORE SENDING FIELD. 

SBe 0 = CAUSES BLANKS IN SENOING FIELD TO BE REPLACED 
BY ATTRIBUTE MARKS IN THE RECEIVING FIELD. 
1 * BLANKS ARE LEFT AS BLANKS, 

RIO POINTS TO PROC CONTROL FRAME (MOV PQeREG,R9), 


OUTPUT INTERFACE: 
PBUF POINT TO FIRST BYTE OF RECEIVING FIELD 
AND IB $62 2 1. 
POINT ONE BYTE BEFORE RECEIVING FIELD IF SB2 8 0 
INTERNAL USAGE? 
BMS 


Rid 
R15 


PRINT, CRLFPRINT 


PRINT Ci1l,SYSTEM@SUBSeIV)* 
CRLFPRINT (12,-SYSTEMeSUBS=IV)* 


FUNCTIONAL DESCRIPTION 


THESE ROUTINES SEND A MESSAGE TO THE TERMINAL FROM TEXTUAL 
DATA IN THE CALLING PROGRAM? CRLFPRINT FIRST PRINTS A 
CARRIAGE RETURN AND LINE FEED. THESE ROUTINES ARE NOT 
COMPATIBLE WITH CONVENTIONS REGARNING THE LINE PRINTER, AND 
WITH THE PAGINATION ROUTINES. THE MESSAGE SENT IS A STRING 
OF CHARACTERS ASSEMBLED IMMEDIATELY FOLLOWING THE SUBROUTINE 
CALL IN THE CALLING PROGRAM, THE STRING MUST BE TERMINATED 
BY ONE OF THE FOUR DELIMITERS SM, AM, VM, OR SVM, CONTROL 
IS RETURNED TO THE INSTRUCTION AR THE LOCATION IMMEDIATELY 
FOLLOWING THE TERMINAL DELIMITER. 


DELIMITER ACTION 


SM (X'FF!) ¢ END OF MESSAGE?3 CR/LF PRINTED, AND 
AM (X'FE?) ¢ RETURN 


VM (X"FO!) CR/LF PRINTED, BUT MESSAGE PROCESSING 
CONTINUED 
SVM (X'FC!) END OF MESSAGES RETURN WITHOUT PRINTING 
CR/LF 
INPUT INTERFACE 
LFDLY T CONTAINS (CIN THE LOWeORDER BYTE) THE 


NUMBER OF "FILL® CHARACTERS (NULLS) TO 
BE ISSUED AFTER A CR/LF ECHO TO THE 
TERMINAL’ REQUIRED BY PCRLF 
TEXT FOLLOWING SUBROUTINE CALL IN CALLING PROGRAM 
OUTPUT INTERFACE 
NONE 


ELEMENT USAGE 


PRINT. CRLFPRINT 
Ria R ¢ SCRATCH 
R15 R + 
SUBROUTINE USAGE 
PCRLF 
ONE ADOITIONAL LEVEL OF SUBROUTINE LINKAGE REQUIRED 
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PRIVTST1, PRIVTST2., PRIVTSTS 


PRIVTST! (7,SYSTEMeSUBSeI[II)* 
PRIVTST2 (S,SYSTEMeSUBSeIII)* 
PRIVTST3 (4,SYSTEMeSUBSeITT) 


FUNCTIONAL DESCRIPTION 


THESE ROUTINES CHECK TO SEE IF THE CALLING PROCESS HAS 
APPROPRIATE SYSTEM PRIVILEGE LEVELS. IF NOT, BITS PQFLG AND 
LISTFLAG AND TALLY RMODE ARE SET TO ZERO, THE HISTORY STRING 
IS SET NULL (HSEND=HSBEG), TALLY REJCTR IS SET TO 682 (CAN 
ERROR MESSAGE NUMBER), AND AN EXIT IS TAKEN TO MO99, 
OTHERWISE THE ROUTINES RETURN NORMALLY, 


ENTRY BIT TESTED (ERROR IF NOT SET) 
PRIVTST1 SYSPRIV1 
PRIVTST2 SYSPRIVeA 
PRIVTSTS RO5B24§ 


PRNTHDR, NPAGE 


PRNTHDR (7,SYSTEM@SUBSeIJ)* 
NPAGE (8,SYSTEM#=SUBS#IT) 


FUNCTIONAL DESCRIPTION 


THESE ARE ENTRY POINTS’ INTO THE SYSTEM ROUTINE FOR 
PAGINATION AND HEADING CONTROL OF OUTPUT (ALSO USED BY 
WRTLIN, WT2, AND WRITOB WHEN PAGINATION IS SPECIFIED). 
PRNTHDR IS USED TO INITIALIZE BIT PAGINATE TO 1, AND TALLIES 
LINCTR AND PAGNUM TO ZERO AND ONE, RESPECTIVELY. PRNTHOR 
THEN FALLS IMMEDIATELY INTO NPAGE, WHICH OUTPUTS A HEADER 


MESSAGE, 


A PAGE HEADING, IF PRESENT, MUST BE STORED IN A_ BUFFER 
DEFINED BY REGISTER PAGHEAD. THE HEADER MESSAGE IS A STRING 
OF DATA TERMINATED BY A SM3 SYSTEM DELIMITERS IN THE 
MESSAGE INVOKE SPECIAL PROCESSING AS FOLLOWS: 


SM (X'FF!) TERMINATES THE HEADER LINE WITH A CR/LF 

AM (X'FE') INSERTS THE CURRENT PAGE NUMBER INTO THE 
HEADING 

VM (X'FDY) PRINTS ONE LINE OF THE WEADING AND 


STARTS A NEW LINE 
SVM (X'FC') SINGLY. INSERTS THE CURRENT TIME AND 


DATE INTO THE HEADING, BUT TWO SVM'S IN 
SUCCESSION INSERT THE DATE ONLY 
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SBR (X'FB!) INSERTS DATA FROM ONE OF VARIOUS BUFFERS 
INTO THE HEADINGS IF THE CHARACTER 
FOLLOWING THE SR IS 'I', DATA IS’ COPIED 
FROM THE AREA BEGINNING ONE BYTE PAST 
THE ADDRESS SPECIFIED BY REGISTER 
BMSBEG3 IF THE CHARACTER IS ‘aA!', 
REGISTER AFREG JS USEDs FOR ANY OTHER 
CHARACTER. DATA IS COPIED FROM THE AREA 
BEGINNING THREE BYTES PAST THE ADDRESS 
SPECIFIED BY REGISTER ISBEG; DATA TO BE 
COPTED CAN BE TERMINATED BY ANY SYSTEM 
DELIMITER 


PRNTHDR, NPAGE 


CARRIAGE RETURNS, LINE FEEODS., AND FORM FEEDS SHOULD NOT 
BE INCLUDED IN HEADER MESSAGES, OR THE AUTOMATIC 
PAGINATION WILL NOT WORK PROPERLY, 


INPUT INTERFACE 


PAGINATE 8B =1 (NPAGE ONLY$ SET AUTOMATICALLY BY 
PRNTHDR) 


LINCTR T CONTAINS THE NUMBER OF THE LINE TO BE 
PRINTED ON THE CURRENT PAGE (NPAGE ONLY3 
SET TO ZERO AUTOMATICALLY BY PRNTHDR) 
PAGNUM T CONTAINS THE CURRENT PAGE NUMBER (NPAGE 
ONLYs SET TO ONE AUTOMATICALLY &8Y 
PRNTHDR) 
OTHER PARAMETERS AS FOR we (SEE WRILIN DOCUMENTATION), 
EXCEPT FOR PAGINATE AND PAGNUM (SEE ABOVE) AND 08 
(INITIALIZED TO OBBEG BY NPAGE)$ NOTE THAT THE OUTPUT 
BUFFER WHERE THE TRANSLATED HEADING MESSAGE IS BUILT 
(SPECIFIED BY REGISTER OBBEG) MUST BE AT LEAST TWO 
BYTES GREATER THAN THE LONGEST LINE OUTPUT IN THE 
TRANSLATED HEADING (NOT NECESSARILY THE TOTAL HEADING 
SIZE, IF THE ORIGINAL HEADING STRING CONTAINS ANY VMS) 
OUTPUT INTERFACE 
SAME AS FOR WTe 
ELEMENT USAGE 
SAME AS FOR WTe 
SUBROUTINE USAGE 
SAME AS FOR WTe 
EXITS 


TO WT2 


PROC USER EXITS 


PROC USER EXITS 


SUMMARY 


A USER@WRITTEN PROGRAM CAN GAIN CONTROL DURING EXECUTION OF 
A PROC BY USING THE UXXXX OR PXXXX COMMAND IN THE PROC, 
WHERE "XXXX" TS THE HEXADECIMAL MODE®ID OF THE USER ROUTINE. 
THE ROUTINE CAN PERFORM SPECTAL PROCESSING, AND THEN RETURN 
CONTROL TO THE PROC PROCESSOR. NECESSARILY, CERTAIN 
ELEMENTS USED BY THE PROC PROCESSOR MUST BE MAINTAINED BY 
THE USER PROGRAM3 THESE ELEMENTS ARE MARKED WITH AN 
ASTERISK IN THE TABLE RELOW, 


INPUT INTERFACE 


PQFLG B SET, INDICATING THAT A PROC IS BEING 
EXECUTED 

*BASE 0 + CONTAIN THE BASE, MODULO, AND SEPARATION 

*xMODULO T + OF THE MASTER OICTIONARY 

*SEPAR T * 

wPOBEG S POINTS ONE PRIOR TO THE FIRST PROC 


STATEMENTS THIS WILL BE WITHIN THE FILE 
IN WHICH THE PROC RESIDES 


*PGEND S POINTS TO THE TERMINAL AM OF THE PROC 


POCUR S$ + POINT TO THE AM FOLLOWING THE UXXXX OR 
IR R + PXXXX STATEMENT 


sPBUFBEG $ POINTS TO A BUFFER CONTAINING THE 
PRIMARY AND SECONDARY INPUT BUFFERS} 
FORMAT TS SB ace PRIMARY INPUT .w22 SM 
SB «ee SECONDARY INPUT .e2 SMI LOGON 
SETS THIS AREA TO ONE FRAME IN LENGTH, 
WITH ADDITIONAL FRAMES ADDED BY 
SUBROUTINE PONEXTOVE AS THEY ARE 
REQUIREDs ADDITIONAL FRAMES ARE RELEASED 
BY LOGOFF 


x ISBEG S POINTS ONE PRIOR TO THE FIRST CHARACTER 
OF THE PRIMARY OUTPUT BUFFER (CIN THE 


PROC USER EXITS 


PROCESS'S 18 WORKeSPACE)# THIS BUFFER 
SHOULD ALWAYS BE TERMINATED WITH A SM 
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ONE PRIOR TO THE FIRST CHARACTER 
OF THE SECONDARY OUTPUT BUFFER (STACK)3 
THYTS IS INITYALLY TWO LINKED FRAMES, 
THOUGH MORE FRAMES MAY BE LINKED TQ IT 
AUTOMATICALLY BE SUBROUTINE PQNEXTOVF: 
ADDITIONAL FRAMES ARE RELEASED BY 
LOGOFF: THIS BUFFER SHOULD ALWAYS BE 
TERMINATED WITH A SM 


xSTKBEG S POINTS 


IS THE CURRENT INPUT BUFFER POINTER (MAY 
POINT WITHIN EITHER THE PRIMARY OR 
SECONDARY INPUT BUFFERS) 


IB R 


+ POINT TO THE PROC CONTROL BLOCK (PCB+6)3 
USER PROGRAMS MAY CHANGE R9, WITH THE 
CONSIDERATION THAT ELEMENTS DEFINED 
RELATIVE TO IT (SUCH AS PQeCUR@IB) WILL 
NOT BE AVAILABLE 


RI 
PO-REG 


@ w® 
+ 


INTO THE SECONDARY 
INPUT BUFFER, RESET OTHERWISES THIS BIT 
1S DEFINED RELATIVE TO R9, SO RY MUST BE 
SET TO THE PROC CONTROL BLOCK (PCB+6) IN 
ORDER TO REFERENCE THIS BIT 


PQeCUR@IB 86 SET IF I8 POINTS 


*SFLG B SET IF A ST ON COMMAND IS IN EFFECT 
*ZFLG B RESET TO IDENTIFY THE PROC PROCESSOR’ IN 
CERTAIN SYSTFM SUBROUTINES 

*SCe2 C CONTAINS A BLANK 
SFLG ON SFLG OFF 

Is R POINTS TO THE LAST POINTS TQ THE LAST 
BYTE MOVED INTO BYTE MOVED INTO 
THE SECONDARY THE PRIMARY OUTPUT 
OUTPUT BUFFER BUFFER 

UPD R POINTS TO THE LAST POINTS TO THE LAST 


PROC USER EXITS 


OUTPUT INTERFACE 


BYTE MOVED INTO 
THE PRIMARY OUTPUT 
BUFFER 


BYTE MOVED INTO 
THE SECONDARY 
OUTPUT BUFFER 


IR R POINTS TO THE AM PRECEDING THE NEXT PROC 
STATEMENT TO BE EXECUTEDS MAY BE ALTERED 
TO CHANGE PROC EXECUTION 

Is R «¢ MAY BE ALTERED AS NEEDED TO ALTER DATA 

UPD R ¢ WITHIN THE INPUT AND OUTPUT BUFFERS, 8UT 

IB R + THE FORMATS DESCRIBED MUST BE MAINTAINED 
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PROC BUFFERS EACH MUST BE TERMINATED WITH A SM? AMIS 
MAY SEPARATE PARAMETERS 


SFLG B SET IF "STACK ON" IS IN EFFECT. RESET 
OTHERWISE 


PQeCUR@IB 6 SET IF SECONDARY INPUT BUFFER IS ACTIVE, 
RESET OTHERWISE 


POFLG 8 SET IF PROC EXECUTION IS TO CONTINUE, 
RESET OTHERWISE 

ABIT#ZBIT 8B ZERO 

BASE 0 ¢ 

MODULO T « 

SEPAR T ¢ 

SCO Cc hUF 

SCi C h6+ 

SCe C ¢ SET TO VALUE ON ENTRY 

POBEG S$ ¢ 

PQEND § *¢ 

PBUFBEG S + 

ISBEG 8 ¢ 

STKBEG S *¢ 


EXIT CONVENTION 
THE NORMAL METHOD OF RETURNING CONTROL TO THE PROC PROCESSOR 


PROC USER EXITS 


IS TO EXECUTE AN EXTERNAL BRANCH INSTRUCTION (ENT) TO 
2ePROC#I, IF IT IS NECESSARY TO ABORT PROC CONTROL AND EXIT 
TO WRAPUP, BIT PQFLG SHOULD BE RESET BEFORE BRANCHING TO ANY 
OF THE WRAPUP ENTRY POINTS (SEE WRAPUP DOCUMENTATION). 


NOTE THAT WHEN A PROC EVENTUALLY TRANSFERS CONTROL TO TCL 
(VIA THE "P*® OPERATOR), CERTAIN ELEMENTS ARE EXPECTED TO BE 
IN AN INITIAL CONDITION. THEREFORE, IF A USER ROUTINE USES 
THESE ELEMENTS, THEY SHOULD BE RESET BEFORE RETURNING TO THE 
PROC, UNLESS THE ELEMENTS ARE DELIBERATELY SET UP AS A MEANS 
OF PASSING PARAMETERS YO OTHER PROCESSORS, SPECIFICALLY, 
THE BITS AFLG THROUGH ZFLG ARE EXPECTED TO BE ZERO BY THE 
TCL#II AND ENGLISH PROCESSORS. IT IS BEST TO AVOID USAGE OF 
THESE BITS IN PROC USER EXITS. ALSO. THE SCAN CHARACTER 
REGISTERS SCO, SCi, ANDO SC2@ MUST CONTAIN A SB, A BLANK, AND 
A BLANK, RESPECTIVELY. 
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PONEXTOVF 


SUBROUTINE PQNEXTOVF MAY BE USED BY USER@WRITTEN PROGRAMS 
WHEN ADDING PARAMETERS TO THE PRIMARY OR SECONDARY INPUT 
RUFFERS OR THE SECONDARY OUTPUT BUFFER. THIS ROUTINE WILL 
AUTOMATICALLY ATTACH ADDITIONAL FRAMES TO THESE BUFFERS AS 
REQUIRED. IT SHOULD BE USED BY SETTING xXMODE TO ITS 
MODE#ID, AND WILL THEN BE ENTERED ON A "FORWARD LINK ZERO® 
CONDITION ON REGISTER 8 OR 15, 


PQNEXTOVF INPUT INTERFACE 


R68 OR RIS R POINTS TO THE END OF THE FRAME ON WHICH 
THE FORWARD LINK ZERO TRAP OCCURS 


RI R POINTS TO THE PROC CONTROL BLOCK 
PONEXTQOVF OUTPUT INTERFACE 
R&B OR R1IS R UNCHANGED 


OTHER ELEMENTS AS FROM ATTOVF$S IN PARTICULAR, OVRFLW=0 
IF NO FRAME IS AVAILABLE 


PRTERR 


PRTERR (O,WRAPUPeIII)« 
FUNCTIONAL OESCRIPTION 


PRTERR IS USED TO RETRIEVE AND PRINT A MESSAGE FROM THE 
SYSTEM FILE ERRMSG. A PARAMETER STRING MAY BE PASSED TO THE 
ROUTINE, IN WHICH CASE THE PARAMETERS ARE FORMATTED ANDO 
INSERTED ACCORDING TO THE CODES IN THE MESSAGE ITEM. 


ITEMS IN THE ERRMSG FILE CONSIST OF AN ARBITRARY NUMBER OF 
LINES (WHERE A LINE IS DELIMITED BY AN AM), WITH EACH LINE 
CONTAINING A CODE LETTER IN COLUMN ONE, POSSIBLY FOLLOWED BY 
A STKING OR NUMERIC PARAMETER (NUMERIC PARAMETERS ENCLOSED 
IN PARENTHESES). THE POSSIBLE CODES AND THEIR MEANINGS ARE 
LISTED BELOW. (BRACKETS INDICATE OPTIONAL PARAMETERS.) 


A [(DEC. #)] PARAMETER INSERTION CODES THE NEXT 
PARAMETER FROM THE PARAMETER STRING, IF 
ANY, IS PLACED INTO THE OUPUT BUFFER? IF 
"DEC, #" YS SPECIFIED, THE PARAMETER IS 
LEFT@ JUSTIFIED IN A BLANK FIELD OF THAT 
LENGTH 


D THE SYSTEM DATE IN DO MMM YYYY FORMAT IS 
ADDED TO THE OUTPUT BUFFER 


E (STRING) THE MESSAGE ITEM*ID. SURROUNDED BY 


BRACKETS, IS PLACED INTO THE OQUTPUT 
BUFFER. FOLLOWED BY "STRING" IF PRESENT 
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H STRING THE CHARACTER STRING IS PLACED IN’ THE 
OUTPUT BUFFER (NO BLANK ITS NECESSARY 
BETWEEN THE CODE LETTER AND THE 
BEGINNING OF THE STRING) 


L (COEC. #)) THE OUTPUT BUFFER IS PRINTED, AND THE 
SPECIFIED NUMRER OF LINE FEEDS IS OUTPUT 
CONE IF "NEC. #" IS NOT SPECTFIED) 


R (COEC. 4#)) LIKE Ae ONLY THE PARAMETER Is 
RIGHT*JUSTIFIED, IN A FIELD OF "DEC. #" 
BLANKS IF "DEC. #" I8 SPECIFIED 


PRTERR 


S ((O0EC. #)) THE POINTER TO THE CURRENT POSITION IN 
THE QUTPUT BUFFER IS REPOSITIONED TO THE 
SPECIFIED COLUMN (COLUMN ONE IF 
PDEC. #" IS NOT PRESENT) 


T THE SYSTEM TIME IN HH8MME8SS I8 ADDED TO 
THE OUTPUT BUFFER 


xX THE NEXT PARAMETER IS SKIPPED 


INPUT INTERFACE 


TS R POINTS ONE PRIOR TO THE MESSAGE ITEMeID, 
WHICH MUST BE TERMINATED BY AN AM} 
PARAMETERS OPTIONALLY FOLLOW, BEING 
DELIMITED BY AM'S$ THE PARAMETER STRING 
MUST END WITH A SM 


EBASE D + USED AS THE BASE, MODULO, AND SEPARATION 

EMOD T + FOR THE MESSAGE FILE IF EBASE IS 

ESEP T * NON@ZEROs IF EBASE IS ZERO, PRTERR 
ATTEMPTS TO SEY EBASE, EMOD, AND ESEP TO 
THE PARAMETERS FOR THE SYSTEM FILE 
ERRMSG, AND EXITS ABNORMALLY IF UNABLE 
TO 00 SO 

MBASE 0D + USED AS THE PARAMETERS FOR THE MASTER 

MMOD T ¢ DICTIONARY IF NECESSARY TO SET UP EBASE, 

MSEP T « EMOD, AND ESEP, BUT PRTERR EXITS 


ABNORMALLY IF MBASE IS ZERO 


OBSIZE T CONTAINS THE MAXIMUM NUMBER OF 
CHARACTERS TO BE OUTPUT ON A LINE 
CNORMALLY SET AT LOGON TIME) 


OBBEG S + POINT TO THE BEGINNING AND END OF THE 
OBEND S ¢ OUTPUT BUFFER (NORMALLY SET AT LOGON 
TIME) 


OTHER ELEMENTS AS REQUIRED BY WRTLIN (SEE WRTLIN 
DOCUMENTATION) 


OUTPUT INTERFACE 


PRTERR 

TS R POINTS TO THE AM AFTER THE MESSAGE 
ITEMeID IF NO PARAMETERS ARE PROCESSED, 
OTHERWISE TO THE AM OR SM AFTER THE LAST 
PARAMETER PROCESSED 

EBASE D + CONTAIN THE BASE, MODULO, AND SEPARATION 

EMOD T + PARAMETERS FOR THE SYSTEM FILE ERRMSG IF 

ESEP T ¢ EBASE WAS ORIGINALLY ZERO (CAND THE FILE 
WAS SUCCESSFULLY RETRIEVED) 

LINCTR T + UPDATED IF BIT PAGINATE IS SET 

PAGNUM T ¢ 

ELEMENT USAGE 

SB60 B ¢ 

SB61 6 °¢ 

CTRO T ¢ 

T6 T *¢ 

BASE dD ¢ 

MODULO T ¢ 

SEPAR T + UTILITY 

AF R *¢ 

IR R + 

BMS R ¢ 

BMSBEG S + 

08 R +¢ 

Rid R *¢ 

SR4 S ¢ 

CTRi T USED WITH *FR® CODE MESSAGES 

SYSR{ S USED WITH "S" CODE MESSAGES 


INHTRITH 4H INCREMENTED OURING RETRIEVAL OF FILE 
ERRMSG IF EBASE IS ORIGINALLY ZERO, AND 
DECREMENTED AFTERWARDS 


ALL ELEMENTS USED BY RETIX, AND BY WRTLIN (UNLESS 


PRTERR EXITS ABNORMALLY),. AND ELEMENTS USED BY GBMS IF 
PRTERR ATTEMPTS RETRIEVAL OF THE SYSTEM FILE ERRMSG 
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PRTERR 


SUBROUTINE USAGE 


RETIX, WRTLIN, DECINHIB, DATE (FOR "D" CODE MESSAGES), 
TIME (FOR "T" CODE MESSAGES), GBMS (FOR RETRIEVING 
ERRMSG) 


SIX ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED IF 
GBMS ATTEMPTS RETRIEVAL OF AN ERRMSG FILE WHICH IS A 
"QO" CODE ITEM, OTHERWISE FOUR LEVELS REQUIRED 


EXITS ‘ 
TO 2,ABSL IF EBASE AND MBASE ARE BOTH ZERO 


ReETAs ReETAMs, RATE, RETALM 


RETA (1,-R.FIO#"VI)* 
RETA.M (2,R.FIOwVI)« 
RATE (3,R.FIOwIV)« 
RATE.M (4,R,FIOeIV)« 


FUNCTIONAL DESCRIPTION 


THESE ROUTINES PERFORM TRANSLATION OF CHARACTER STRINGS FROM 
EBCDIC OR ASCII TO ASCIT OR EBCDIC. EBCDIC CHARACTERS WITH 
NO ASCII EQUIVALENT ARE TREATED AS BINARY OR PACKED DATA! 
RETA AND RETA.M TRANSLATE THESE CHARACTERS TO VALUES 
HAVING THE HIGH*ORDER BIT SET.» AND R.ATE AND R.ATE.M 
TRANSLATE THESE VALUES TO THE APPROPRIATE EBCDIC CHARACTERS, 
RETA AND RATE OVERLAY THE INPUT STRING WITH THE TRANSLATED 
STRING, WHILE THE OTHER TWO ROUTINES STORE THE TRANSLATED 
STRING IN A SPECIFIED BUFFER AREA, 


INPUT INTERFACE 


CTR1 T CONTAINS THE NUMBER OF CHARACTERS TO BE 
TRANSLATED 
R8 R POINTS TO THE FIRST CHARACTER OF THE 


ASCII STRING BUFFER, FOR "MOVE" ROUTINES 
ONLY CRLETA.M AND R,ATE.M) 


R15 R POINTS TO THE FIRST CHARACTER OF THE 

EBCDIC STRING BUFFERS FOR NONe*MOVE* 
ROUTINES, THIS IS ALSO THE ASCII STRING 
BUFFER 
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OUTPUT INTERFACE 


CTR T = 
R86 R «+ POINT TO THE LAST CHARACTERS IN THEIR 
R15 R + RESPECTIVE BUFFERS? FOR NONe "MOVE ® 
ROUTINES, R@2zR15 
ELEMENT USAGE 
TO T + 
R13 R ¢ UTILITY 
RETA, RETA.Me RATE, R.ETA.M 
Rid R ¢ 
SUBROUTINE USAGE 
NONE 
RDOLABEL. ROLABELY 
RDLABEL (2@,TAPEIO#II)« 
RDLABELY (8, TAPEIO#I1) 
FUNCTIONAL DESCRIPTION 
THESE ROUTINES READ MAGNETIC TAPE LABELS AND STORE THEM IN 


THE QUATERNARY CONTROL BLOCK CPCB+3). 
FOLLOWING FORMAT? 


TAPE LABELS HAVE THE 


SM Loaee LABEL DATA ... VM TIME DATE AM REEL # AM SM 


DATA IS STORED IN PCB#3 AS FOLLOWS? 


HEX BYTE 

DISPLACEMENT TYPE DESCRIPTION 

197 (BIT 0) B "UNLABELED TAPES IN USE" FLAG 

198 T REEL NUMBER 

19A T RECORD SIZE SAVE AREA 

19C “ LABEL SAVE BUFFER (44 BYTES) 

ice - LABEL READ/WRITE BUFFER (44 BYTES) 
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SINCE THE TAPE I/0 ROUTINES ARE NON@REENTRANT, INTERNAL 
STORAGE IS UTILIZED WHEN AN EQT CONDITION IS HANDLED BY THE 
TAPE READ OR WRITE SUBROUTINES, THESE ROUTINES SAVE 
REGISTERS R13, R14, AND R15 IN INTERNAL SAVE AREAS (DEFINED 
IN TAPETO#II),. AND SET UP R13 TO DISPLACEMENT X'196! IN THE 
QUATERNARY CONTROL BLOCK IN ORDER TO ADDRESS ELEMENTS IN 
THAT BLOCK. R13, R14, AND R1§ ARE RESTORED ON EXIT. 


ROLABEL MAY BE CALLED ONCE BY ANY PROGRAM TO READ THE LABEL 
FROM REEL 41s IF THE TAPE IS LABELED, THE LABEL IS STORED 
IN THE SAVE AREAS IF NOT, THE “UNLABELED TAPES IN USE® FLAG 
18 SET. RDLABELY IS SIMILAR TO ROLABEL, EXCEPT THAT THE 
REEL NUMBER IS SPECIFIED IN TALLY CTR1. 
INPUT INTERFACE 

CTR! T CONTAINS THE REEL NUMBER, FOR ROLABELY 


ROLABEL. RDLABELY 


ONLY 
OUTPUT INTERFACE 
THE LABEL SAVE AREA IS SET UP AS DESCRIBED 
ELEMENT USAGE 
R13 


Rida 
Ri5 


UTILITY 


OD ® 
+ 


D0 
D1 
R2sC0 
T4 


AS USED BY TPREAD 


4~OO90 
$++++4 


SUBROUTINE USAGE 
TPREADS BCKSP (FOR UNLABELED TAPES)3 CVDRi5 (FOR 
LABELED TAPES)? CRLFPRINT (FOR ERROR MESSAGES) 3 ONE 
INTERNAL SUBROUTINE 


MAXIMUM TEN ADDITIONAL LEVELS OF SUBROUTINE LINKAGE 
REQUIRED (SEE TPREAD DOCUMENTATION) 


ERROR CONDITIONS 
SEE TPREAD DOCUMENTATION 


ROLINK, WTLINK 


RDLINK (&4,D0ISKFIOe!)» 
WTLINK (C6,DISKFIOel)* 
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FUNCTIONAL DESCRIPTION 

THESE ROUTINES READ OR WRITE THE LINK FIELOS FROM OR TO A 
FRAME, TO OR FROM THE TALLIES NNCF, FRMN, FRMP, AND NPCF, 
THE FID OF THE FRAME IS SPECIFIED IN RECORD, 

INPUT/OUTPUT INTERFACE 


RECORD D CONTAINS THE FIO OF THE FRAME WHOSE 
LINKS ARE TO READ OR WRITTEN 


NNCF H CONTAINS THE NUMBER OF NEXT CONTIGUOUS 
FRAMES 
FRMN D CONTAINS THE FIO OF THE NEXT OR FORWARD 


LINKED FRAME 


FRMP D CONTAINS THE FIO OF THE PREVIOUS OR 
BACKWARD LINKED FRAME 


NPCF H CONTAINS THE NUMBER OF PREVIOUS 
CONTIGUOUS FRAMES 


R1§ R POINTS TO BYTE ZERO OF THE FRAME 
ELEMENT USAGE 

Ria R SCRATCH 
SUBROUTINE USAGE 

NONE 


RDREC 


RDREC (3,DISKFIOel)« 
FUNCTIONAL DESCRIPTION 


RDOREC IS USED TO SET UP THE REGISTERS IR, IRBEG, AND IREND 
TO THE BEGINNING AND ENDING OF THE FRAME AS DEFINED BY THE 
TALLY RECORD. THE SUBROUTINE ASSUMES THE FRAME HAS THE 
LINKED FORMAT AND THEREFORE, IR AND IRBEG ARE SET POINTING 
TO THE ELEVENTH BYTE OF THE FRAME, THAT IS, ONE PRIOR TO THE 
FIRST DATA BYTE OF THE FRAME, TREND IS SET UP POINTING TO 
THE LAST OR S1i1TH BYTE OF THE FRAME, ADDITIONALLY THE 
SUBROUTINE RDOLINK IS ENTERED TO SET UP R15 POINTING TO THE 
LINK PORTION OF THE FRAME AND TO SET UP THE LINK ELEMENTS 
NNCF, NPCF. FRMN, AND FRMP, 


INPUT INTERFACE 
RECORD D CONTAINS THE FID REQUIRED 
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OUTPUT INTERFACE 


IR R «+ POINT ONE PRIOR TO THE FIRST DATA BYTE 

IRBEG S + OF THE FRAME 

IRENO 8 POINTS TO THE LAST DATA BYTE OF THE 
FRAME 

R15 R + 

NNCF 4H + 

FRMN D + (SEE RDLINK/WTLINK DOCUMENTATION) 

FRMP dD 6hClf 

NPCF Hq »* 


ELEMENT USAGE 
NONE 
SUBROUTINE USAGE 


NONE 


READLIN, READLINX, READIB 


READLIN (0-/TERMIO)» 
READLINX (6,TERMIO)* 
READIB (8, TERMIO)s 


FUNCTIONAL DESCRIPTION 


THESE ARE THE STANDARD TERMINAL YNPUT ROUTINES, REGISTER 
IBBEG POINTS TO A’ BLIFFER AREA WHERE THE ROUTINE WILL INPUT 
THE DATA. INPUT CONTINUES TO THIS AREA UNTIL EITHER A 
CARRIAGE RETURN OR LINE FEED I8 ENCOUNTERED, OR UNTIL A 
NUMBER OF CHARACTERS EQUAL TO THE COUNT STORED IN IB8SIZE 
HAVE BEEN INPUT. THE CARRIAGE RETURN OR LINE FEED 
TERMINATING THE INPUT LINE IS OVERWRITTEN WITH A SEGMENT 
MARK (SM), AND REGISTER IBEND POINTS TO THIS CHARACTER ON 
RETURN, IF THE INPUT IS TERMINATED BECAUSE THE MAXIMUM 
NUMBER OF CHARACTERS HAS BEEN INPUT, A SM WILL BE AODED AT 
THE END OF THE LINE. 


THESE ROUTINES CALL GETBUF TO READ INPUT DATA FROM THE 
TERMINAL, AND THEN OETERMINE IF THE LAST CHARACTER WAS A 
CARRIAGE RETURN OR LINE FEED, IF THE LAST CHARACTER WAS A 
CONTROL CHARACTER (SEE GETBUF DOCUMENTATION), THESE ROUTINES 
EITHER ACCEPT OR DELETE THE CHARACTER, DEPENDING ON THE 
VALUE OF BIT CCDEL, AND CALL GETSUF AGAIN, READLIN AND 
READLINX ALSO ECHO A CR/LF AT THE END OF THE INPUT LINE, 
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THE ENTRIES READLIN AND READIB ALSO PROVIDE THE FACILITY FOR 
TAKING INPUT FROM A STACK INSTEAD OF OIRECTLY FROM THE 
TERMINAL (SEF BELOW). THIS FEATURE IS USED, FOR EXAMPLE, BY 
THE PROC PROCESSOR TO STORE INPUT LINES WHICH ARE RETURNED 
TO REQUESTING PROCESSORS AS IF THEY ORIGINATED AT THE 
TERMINAL. IF THE LAST CHARACTER IN A STACKED LINE IS A "8", 
IT IS REPLACED WITH A SM, TERMINAL INPUT RESUMES WHEN THE 
STACKED INPUT IS' EXHAUSTED. READLINX DOES NOT TEST FOR 
STACKED INPUT. 


TAB CHARACTERS (CONTROL@I, X'09') WILL BE PROCESSED IF BIT 
ITABFLG 18 SET. THE INPUT TAB TABLE IS IN THE QUADRENARY 
CONTROL BLOCK, STARTING AT BYTE 64, UP TO ELEVEN VALUES MAY 
BE STORED IN TALLIES BEGINNING AT THIS LOCATION, WITH VALUES 
IN INCREASING ORDER OF COLUMN POSITION. VALID TAB’ VALUES 
CAUSE AN APPORPRIATE NUMBER OF BLANKS TO BE OUTPUT TO THE 
TERMINAL IN ORDER TO POSITION THE CURSOR. 


READLIN, READLINX,. READIB 


INPUT INTERFACE 
ITABFLG B IF SET, TAB CHARACTERS ARE PROCESSED 


CCDEL B IF SET, CONTROL CHARACTERS ARE DELETED 
FROM TERMINAL INPUT 


IBBEG 8 POINTS ONE BYTE BEFORE THE BUFFER AREA 
WHERE INPUT IS TO BE STOREDs THE BUFFER 
MUST BE TWO BYTES GREATER THAN IBSIZE 


IBSIZE T CONTAINS THE MAXIMUM NUMBER OF 
CHARACTERS ACCEPTED FOR INPUT 


LFDLY T CONTAINS (IN THE LOWeORDER BYTE) THE 
NUMBER OF "FILL" CHARACTERS (NULLS) TO 
BE ISSUED AFTER A CR/LF ECHO TO THE 
TERMINAL (FOR READLIN AND READLINX ONLY) 


FRMTFLG B IF SET, CONTROL#X CAUSES BACKSPACES TO 
THE BEGINNING OF THE INPUT AREA INSTEAD 
OF CR/LF TO A NEW INPUT LINES ALSO, 
CONTROL®R IS IGNORED? REQUIRED BY GETBUF 


TITFLG B IF SET, CONTROL WILL NOT BE RETURNED IF 
THE MAXIMUM NUMBER OF CHARACTERS [8 
INPUT UNLESS A NON® EDITING CONTROL 
CHARACTER IS ENTERED (E.G. CARRIAGE 
RETURN)’ REQUIRED BY GETBUF 


PRMPC C TERMINAL PROMPT CHARACTER} REQUIRED BY 
GE TBUF 
BSPCH C CONTAINS THE CHARACTER TO BE ECHOED TO 


THE TERMINAL WHEN THE BACK SPACE KEY IS 
PRESSED? REGUYRED BY GETBUF 
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STKFLG B IF SET, GETIB TESTS FOR "STACKED" INPUT? 
TERMINAL INPUT WILL NOT BE REQUESTED 
UNTIL STACKED INPUT IS EXHAUSTED 


STK INP Ss POINTS TO THE NEXT "STACKED" INPUT LINE? 
LINES ARE DELIMINATED BY AM'S, WITH A SM 


READLIN, READLINX, READIB 


INDICATING THE END OF THE STACK 


OUTPUT INTERFACE 
IB R ZzYBBEG 


IBEND Ss POINTS TO A 8M ONE BYTE PAST THE END 


OF INPUT DATA (OVERWRITES THE CR OR LF) 


STKFLG B ZEROED IF THE END OF STACKED INPUT WAS 


REACHEO#s NOT CHANGED IF INITIALLY ZERO 


STK INP ) POINTS TO THE NEXT LINE OF STACKED INPUT 
(OR END OF STACK) IF STACKED INPUT IS 


BEING PROCESSED 


ELEMENT USAGE 


R23C0 C + 

DO D + UTILITY 

Rid R +¢ 

R15 R °¢ 

SYSRO S USED IF ITABFLG SET AND TAB CHARACTERS 
PROCESSED 


SUBROUTINE USAGE 


IF NO STACKED INPUT? GETBUF, PCRLF (EXCEPT FOR 
READLINX) 


TWO ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED IF 
TAB CHARACTERS PROCESSED, OTHERWISE ONE LEVEL REQUIRED 


ERROR CONDITIONS 


IF A STACKED INPUT LINE EXCEEDS IBSIZE, THE LINE IS 
TRUNCATED AT IBSIZE3 THE REMAINDER OF THE LINE IS 


LOST. 


RELOVF, RELBLK» RELCHN 


RELOVF (2,0F1)* 
RELBLK (6,0F1)* 
RELCHN (3,0F1)* 


FUNCTIONAL DESCRIPTION 


THESE ROUTINES ARE USED TO RELEASE FRAMES TO THE OVERFLOW 
SPACE POOL. RELOVF I8 USED TO RELEASE A_ SINGLE FRAME, 
RELBLK IS USED TO RELEASE A BLOCK OF CONTIGUOUS FRAMES, AND 
RELCHN IS USED TO RELEASE A CHAIN OF LINKED FRAMES (WHICH 
MAY OR MAY NOT BE CONTIGUOUS). A CALL TO RELCHN SPECIFIES 
THE FIRST FIO OF A LINKED SET OF FRAMESS THE ROUTINE WILL 
RELEASE ALL FRAMES IN THE CHAIN UNTIL A ZERO FORWARD LINK [8 
ENCOUNTERED. 


INPUT INTERFACE 
OVRFLW ») CONTAINS THE FID OF THE FRAME TO BE 
RELEASED (FOR RELOVF),. OR THE FIRST FID 
OF THE BLOCK OR CHAIN TO BE RELEASED 
(FOR RELBLK AND RELCHN, RESPECTIVELY) 


DO D CONTAINS THE NUMBER OF FRAMES (BLOCK 
SIZE) TO BE RELEASED, FOR RELBLK ONLY 


OUTPUT INTERFACE 
NONE 
ELEMENT USAGE 


OVRFLW 0 ¢ 

Ria R «+ UTILITY 

R15 R *¢ 

D0 D + 

D4 0 + USED BY SYSREL 
De D ¢ 


SUBROUTINE USAGE 
SYSRELs’ TWO INTERNAL SUBROUTINES 


RETIX, RETI, RETIXX, RETIXU 


RETIX (1,DISKFIOelI)« 
RETI CO,DISKFIOeI)«* 
RETIXX (12,01SKFIO#J)» 
RETIXU (11,D0ISKFIOe])« 


RELOVF, RELBLK, RELCHN 


TWO ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED 
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FUNCTIONAL DESCRIPTION 


THESE ARE THE ENTRY POINTS TO THE STANDARD SYSTEM ROUTINE 
FOR RETRIEVING AN ITEM FROM A FILE, THE ITEMeID I[§S 
EXPLICITLY SPECIFIED TO THE ROUTINE, AS ARE THE FILE 
PARAMETERS BASE, MODULO, AND SEPARATION, ADDITIONALLY, THE 
NUMBER OF THE FIRST FRAME IN THE GROUP IN WHICH THE ITEM MAY 
BE STORED MUST BE SPECIFIED IF THE ENTRY RETIXX IS USED. 
THE OTHER ENTRIES PERFORM A "HASHTNG" ALGORITHM TO DETERMINE 
THE GROUP (SEE HASH DOCUMENTATION). THE GROUP IS SEARCHED 
SEQUENTIALLY FOR A MATCHING ITEM#=ID. IF THE ROUTINE FINDS A 
MATCH, IT RETURNS POINTERS TO THE BEGINNING AND END OF THE 
ITEM, AND THE ITEM SIZE (FROM THE ITEM COUNT FIELD). IF 
ENTRY RETIXU TS USED. THE GROUP YS LOCKED DURING PROCESSING, 
PREVENTING OTHER PROGRAMS FROM ACCESSING (AND POSSIBLY 


CHANGING) THE DATA. 


THE ITEMeID IS SPECIFIED IN A BUFFER DEFINED BY REGISTER 
BMSBEGs IF ENTRY RETI IS USED, REGISTER BMS MUST POINT TO 
THE LAST BYTE OF THE ITEM#ID. AND AN AM WILL BE APPENDED TO 
TT BY THE ROUTINE. FOR ALL OTHER ENTRY POINTS, THE ITEM#ID 
MUST ALREADY BE TERMINATED BY AN AM, 


INPUT INTERFACE 
BMSBEG S POINTS ONE BYTE BEFORE THE ITEMeIO 


BMS R POINTS TO THE LAST CHARACTER OF THE 
ITEM#ID, FOR RETI AND RETIXX ONLY 


BASE D + CONTAIN THE BASE, MODULO, AND SEPARATION 
MODULO T + OF THE FILE TO BE SEARCKED 

SEPAR tT ¢ 

RECORD D CONTAINS THE BEGINNING FIO OF THE GROUP 


TO BE SEARCHED, FOR RETIXX ONLY 


OUTPUT INTERFACE 


RETIX, RETI, RETIXX, RETIXY 


BMS R + POINT TO THE LAST CHARACTER OF THE 

BMSEND S§ ¢ ITEMeID 

RECORD D) CONTAINS THE BEGINNING FID OF THE GROUP 
TO WHICH THE ITEMeID HASHES (SET IF HASH 
IS CALLED) 

NNCF H °¢ 

FRMN 0 ¢ CONTAIN THE LINK FIELOS OF THE FRAME 

FRMP D + SPECIFIED IN RECORD? SET BY RDREC 

NPCF H ¢ 


XMODE £0 
ITEM FOUND? ITEM NOT FOUND? 

RMBIT = i a () 

SIZE =sVALUE OF ITEM =0 
COUNT FIELD 

Rid POINTS ONE PRIOR POINTS TO THE LAST 
TO THE ITEM COUNT AM OF THE LAST ITEM 
FIELD IN THE GROUP 

IR POINTS TO THE POINTS TO THE AM 
FIRST AM OF THE INDICATING END OF 
ITEM GROUP DATA (2R14¢1) 

SR4 POINTS TO THE eRid 


LAST AM OF THE 
ITEM 


ELEMENT USAGE 
NONE CEXCEPT DO. D1. AND R15) 


SUBROUTINE USAGE 


RDREC (LOCAL), HASH (EXCEPT FOR RETIXX# LOCAL). GLOCK 
(RETIXU ONLY), IROVF (FOR IR OVERFLOW SPACE HANOLING 
ANO ERROR CONDITIONS) 


RETIX, RETI. RETIXX., RETIXU 


THREE ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED 
(FOR TROVE AND GLOCK# RDREC AND HASH REQUIRE ONE 


LEVEL) 


EXITS 


IF THE DATA IN THE GROUP IS BAD © PREMATURE END OF 
LINKED FRAMES, OR NON@WHEXADECIMAL CHARACTER ENCOUNTERED 
IN THE COUNT FIELD # THE MESSAGE 


GROUP FORMAT ERROR XXXXXX 
1S RETURNED (WHERE XXXXXX IS THE FIO INDICATING WHERE 
THE ERROR WAS FOUND). AND THE ROUTINE RETURNS WITH AN 


"ITEM NOT FOUND" CONDITION. DATA IS NOT DESTROYED, AND 
THE GROUP FORMAT ERROR WILL REMAIN, 
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REWIND 


REWIND (C8,TAPETOe!I)* 


FUNCTIONAL DESCRIPTION 


THIS ROUTINE REWINDS THE TAPE UNIT. IT CALLS INIT AND 
REQUIRES FOUR ADDITIONAL LEVELS OF SUBROUTINE LINKAGE. 


SETPIB 


SETPIB (3,LOGON)* 
FUNCTIONAL DESCRIPTION 
SETPIB SETS R14 POINTING TO THE PIB OF THE CALLING PROCESS. 
INPUT INTERFACE 
NONE 
OUTPUT INTERFACE 


Ria R POINTS TO THE FIRST BYTE OF THE 
PROCESS'S PI8 


ELEMENT USAGE 
NONE 
SUBROUTINE USAGE 


NONE 


SETPIBF 


SETPIBF (3,ABSLi)* 
FUNCTIONAL DESCRIPTION 


SETPIBF SETS R15 POINTING TO THE PIB ASSOCIATED WITH LINE 
ZERO. NO OTHER INTERFACE OR’ ELEMENT USAGE IS REQUIRED BY 
THIS ROUTINE, 


SORT 


SORT (1,S0RT)* 
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FUNCTIONAL DESCRIPTION 


THIS ROUTINE SORTS AN) ARBITRARILY LONG STRING OF KEYS IN 
ASCENDING SEQUENCE ONLY? THE CALLING PROGRAM MUST 
COMPLEMENT THE KEYS IF A DESCENDING SORT IS REQUIRED. THE 
KEYS ARE SEPARATED BY SM'S WHEN PRESENTED TO SORTS THEY ARE 
RETURNED SEPARATED BY SB'S, ANY CHARACTER, INCLUDING SYSTEM 
DELIMITERS OTHER THAN THE SM AND SB MAY BE PRESENT WITHIN 
THE KEYS, 


AN NeWAY POLYPHASE SORT@MERGE SORTING ALGORITHM IS USED. 
THE ORIGINAL UNSORTED KEY STRING MAY "GROW" BY A FACTOR OF 
10%, AND A SEPARATE BUFFER IS REQUIRED FOR THE SORTED KEY 
STRING, WHICH IS ABOUT THE SAME LENGTH AS THE UNSORTED KEY 
STRING, THE "GROWTH" SPACE IS CONTIGUOUS TO THE END OF THE 
ORIGINAL KEY STRINGS THE SECOND BUFFER MAY BE SPECIFIED 
ANYWHERE, SORT AUTOMATICALLY OBTAINS AND LINKS OVERFLOW 
SPACE WHENEVER NEEDED. OUE TO THIS. ONE CAN FOLLOW STANDARD 
SYSTEM CONVENTION AND BUILD THE ENTIRE UNSORTED STRING IN AN 
NOVERFLOW TABLE WITH OVRFLETR CONTAINING THE BEGINNING FIDS 
THE SETUP IS THEN? 


START OF END OF "GROWTH" START OF 
UNSORTED KEYS UNSORTED KEYS SPACE SECOND BUFFER 


asavqganena /a w/eeareeenee?> Ceennaverurvved Ne wmananaves/e 


THE SECOND BUFFER POINTER THEN IS MERELY SET AT THE END OF 
THE "GROWTH" SPACE, AND SORT IS ALLOWED TO OBTAIN ADDITIONAL 
SPACE AS REQUIRED. 


ALTERNATELY, THE ENTIRE SET OF BUFFERS MAY BE IN THE IS OR 
NS WORKSPACE IF THEY ARE LARGE ENOUGH, 


INPUT INTERFACE 


SR1 S POINTS TO THE SM PRECEDING THE FIRST KEY 
SRe S POINTS TO THE SM TERMINATING THE LAST 
KEY 
SORT 
SR3 SS) POINTS TO THE BEGINNING OF THE SECOND 
BUFFER 


QUTPUT INTERFACE 


SRt Ss POINTS BEFORE THE SB PRECEDING THE FIRST 
SORTED KEY (THE EXACT OFFSET VARIES FROM 
CASE TO CASE)3 THE END OF THE SORTEO 
KEYS (SEPARATED BY SB'S) IS MARKED BY A 
SM 
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ELEMENT USAGE 


UTILITY 


a ] 

4) 
BHAA AMwM we DAD DAADADAADNRHHO DW 
++teteette He eiee eet oe oe + + + 


SUBROUTINE USAGE 
COMP (0,SO0RT) 
GWS USEO WITH XMODE 
FOUR ADDITIONAL LEVELS OF SURROUTINE LINKAGE REQUIRED 


TCLe!I 


MDO1 (€0O,TCL#=I)* 
MD1B (2,TCL#I)* 


FUNCTIONAL DESCRIPTION (MO1) 


MO1 IS THE BASIC ENTRY POINT (NOT A SUBROUTINE) FOR’ THE 
TERMINAL CONTROL LANGUAGE (TCL) PROCESSOR, WHEN THIS ENTRY 
POINT IS USEN, TCL CHECKS FOR PROC CONTROL, AND IF SO, 
ENTERS THE PROC PROCESSOR. IF A PROC IS NOT IN CONTROL (AND 
BIT CHAINFLG IS ZERO), AN INPUT LINE IS OBTAIYNEN FROM THE 
TERMINAL» AND CONTROL PASSES IMMEDIATELY TO MD1B, 


INPUT INTERFACE (MD1) 
» CHAINFLG 8B IF SET. TERMINAL INPUT IS NOT OBTAINED 
7 (AS WHEN CHAINING FROM ONE DATA/BASIC 
PROGRAM TO ANOTHER) 


POFLG B SET TO INDICATE PROC CONTROL 


5-69 


OUTPUT INTERFACE (D1) 


AFLG B b 
‘ + 
7 + 
; + =0 
AFLG+8A7 8 + 
DAF YS B + 
ARTT A 6+ 
w + 
‘ + 2) 
‘ + 
ZBIT+6 8 ¢ 
R MODE T = () 
PRMPC C CONTAINS A CO.OM (fe!) 
$C3 C CONTAINS A SB (X!FBS) 
Sci C + CONTAIN & BLA UK 
Ste Cc + 
TCL] 
HSEND S =sHSREG 
1S R sISBES 
NS R xOSRESG 


OFRER ELEMENTS AS SET BY MD1S5, IF EXTERED 
ELEMENT GSAGE €MD1) 
Ri4 R 
SUBROUTINE USAGE (MND1) 
YF PQFLG=0 AND CHATINFLG: 08 
WRYLIN, READLIN 
FOUR ADDITIONAL LEVELS OF SUBRCUTINE LINKAGE USED 
EXITS (mMOi3 


7O &,FQ000 IF PQFLGR1, CTHERSTISE TC MDiB 


3= 70 


TCL] 


FUNCTIONAL DESCRIPTION (M018) 


MDN18 JIS THE POINT WHERE TCL ATTEMPTS TO 
NOVeRL INK DATA 


(FIRST SET OF CONTIGUOUS 
FROM A USER'S MASTER OICTIONARY. 
TF NO ERRORS ARE FOUND, THE RES; 
BUFFER IS ENITED AND COFIED INTS& 
PASSES TO THE PROCESSOR SPECIFIEO 
OF THE VERB, OR TO THE PROC PROCE 
PROC (ATTRIBUTE 12!'PO!), 


OPTION STRINGS, 
AT THIS POINT, UNLESS CRARASTER 8S 
FOR FURTHER INFORMATION ABOUT OFT 


INPUT INTERFACE (MD1B) 


If R POINTS ONE 
DATA 
BMSBEG S POINTS TO THE 


SPACE 


QUTPUT INTERFACE (MD1R) 


CHAINFILG 8B + s0 

DAF &@ BR + 

RASE D + 

MODULO T «+ SMBASE, MMONL 

SEPAR T + 

IB R + POINT TO THE 

IREND S + INPUT LINE 

BMS R + POINT TO THE 

BMSEND S + NAME (FOR RET 

IR R POINTS TQ fT 
OF THE VEPB I 
AM IN THE 
ATTRIBUTE ONE 

TCL! 

SRa4 8 POINTS TO THE 
ITEM 

RECORD D + 

NNCF b + 

FRMN op + 

ERMP D + 

NPCF H + 

SIZE T ¢ 


ENCLOSED IN PARENTHESES, 


IN TRE MASTER DICTIONARY, 


RETRIEVE A VERB 
IN THE INPUT BUFFER) 
AND VALIDATE IT AS SUCH, 
OF THE DATA IN THE INPUT 
THE TS WORK SPACE, AND CONTROL 
IN THe PRIMARY#MODE#IO ATTRIBUTE 
SSOR IF THE DATA DEFINES & 


ARE ALSO PROCESSED BY TCL 
CPz'0', SEE GETOPT DOCUMENTATION 


TONS, 


CHARACTER BEFORE THE INPUT 


PEGINVING OF THE BMS WORK 


LO, MSEPAR 


SM AT THE END OF THE 


LAST TUHARACTER IN THE VERE 
TX) 
HE AM =OLLOWING ATTRIBUTE & 


TEM, O02 TO THE END@OF@DATA 
TTEM, OR TO THE "Q" JN 
Te Toe ITEM DEFINES A PROC 
AM AY THE END OF THE VERB 


IF FOUND 


(SEE RETIX (OCUMENTATION) 


THE FOLLOWING SPECIFICATIONS ARE MEANINGFUL ONLY IF THE 
FIRST TWO INPUT CHARACTERS ARE NOT !'PQ!8 


SCP C 


CTRO T 


MODETOe T 


MODEIO3 T 

BKBIT B + 
IFLG BRB + 
VFLG B ¢ 
OSs R 

I8 R + 
ISBEG S$ ¢ 


TCLelI 


ELEMENT USAGE (MD1B) 


Rig R 


CONTAINS THE CHARACTER IMMEDIATELY 
FOLLOWING 'P' IN THE VERB DEFINITION, IF 
PRESENT, OTHERWISE CONTAINS A BLANK 


CONTAINS THE PRIMARY MODEeID SPECIFIED 
IN THE VERB DEFINITION 


CONTAINS THE SECONDARY MODE*ID FROM THE 
VERB, IF PRESENT, OTHERWISE 0 


CONTAINS THE TERTIARY MONEeID FROM THE 
VERB, IF PRESENT, OTHERWISE 0 


=0, IF NO ERRORS ENCOUNTERED (SEE BELOW) 


=OSREG 


POINT ONE CHARACTER REFORE THE BEGINNING 
OF THE EDITED INPUT LINE. CHARACTERS 
ARE COPIED FROM THE IB, SURJECT TO THE 
FOLLOWING RULES? 


1) ALL CONTROL CHARACTERS AND SYSTEM 
NELIMITERS (SR, SM, AM, VM, SVM) IN THE 
INPUT BUFFER ARE IGNORED EXCEPT WHEN 
WITHIN NMOUBLE QUOTES ("). CONTROL 
CHARACTERS (<xX'20') ARE ALSO IGNORED 
WHEN WITHIN SINGLE QUOTES ('),. 


2) REDUNDANT BLANKS (TWO OR MORE BLANKS 
IN SEQUENCE) ARE NOT COPIEO., EXCEPT IN 
STRINGS ENCLOSED BY SINGLE OR OOUBLE 
QUOTE SIGNS, 


3) STRINGS ENCLOSED IN SINGLE QUOTE 
SIGNS ARE COPTED AS: SM I] STRING SB. 


4) STRINGS ENCLOSED IN DOUBLE QUOTE 
SIGNS ARE COPYED aS: SM V STRING S68, 


S) END OF DATA IS MARKED AS: SM Z, 


XMODE T 


REJCTR v (USED ON ERROR CONDITIONS) 
DO ) + USED BY GETOPT 
D1 D + 


SUBROUTINE USAGE (MD1A) 


RETIXS CVXIR IF FIRS” INPUT CHARACTERS NOT 'PRO!Y 
GETOPT IF A LEFT PARENYTHESTS 18 ENCOUNTERED OUTSIDE 
QUOTE MARKS 


FOUR ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED 


EXITS (MD18) 


TCLel! 


TO 0,PQe00 IF FIRST INPUT CHARACTERS ARE 'PG! AND POQFLG 
IS ZERO. OR TO 7,PQ"00 IF FIRST INPUT CHARACTERS ARE 
'PA' AND PQFLG IS SET, QTHEREWISE TO THE ENTRY POINT 
SET UP IN CTRO. IF THE VERB IS NOT FOUND IN THE MASTER 
DICTIONARY, OR HAS A BAD FORMAT, CONTROL PASSES TO MD99 
IN THE WRAPUP PROCESSOR, WHICH PRINTS AN ERROR MESSAGE, 


ERROR NUMBER ERROR TYPE 
CIN REJCTR) 


e UNEVEN NUMBER OF SINGLE OR DOUBLE QUOTE 
MARKS IN THE INPUT DATA 

3 VERB CANNOT BE IDENTIFIED IN THE M/OICT 

30 VERB FORMAT ERROR (PREMATURE END OF DATA 


OR A NON@#HEXADECIMAL CHARACTER PRESENT 
IN THE MODE#I0) 


TCLeIT 


MD200 (9,TCL#IT) 
MD201 (CieTClLeIT) 


FUNCTIONAL DESCRIPTION 


THESE ARE THE ENTRY POINTS (NOT SUBROUTINES) INTO THE TCLeII 
PROCESSOR, USED WHENEVER A VERB REQUIRES ACCESS TOA FILE, 


OR 


TO ALL OR EXPLICITLY SPECIFIED ITEMS WITHIN A FILE. 


MD200 IS ENTERED FROM THE TCLeI PROCESSOR AFTER DECODING THE 
VERB (PRIMARY MODE*ID = 2). MD201 IS USED BY TCLeII ITSELF 
TO REGAIN CONTROL FROM WRAPUP UNDER CERTAIN CONDITIONS (SEE 
BELOW). TCL#IY EXITS TO THE PROCESSOR WHOSE MODE#ID IS 
SPECIFIED IN MODEIDes TYPTCALLY PROCESSORS SUCH AS THE 
EDITOR, ASSEMBLER,» LOADER, ETC. USE TCLeII TO FEED THEM THE 
SET OF ITEMS WICH WAS SPECIFIED IN THE INPUT DATA, 
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ON ENTRY, TCLeII CHECKS THE VERB DIFINITION FOR A SET OF 
OPTION CHARACTERS IN ATTRIBUTE St VERB OPTIONS ARE SINGLE 
CHARACTERS IN ANY SEQUENCE AND COMBINATION, AND ARE LISTED 
BELOW (ALL OTHER CHARACTERS ARE IGNORED). 


OPTION MEANING 


C COPY = ITEMS RETRIEVED ARE COPIED TO THE 
TS WORKSPACE 


E EXPAND » YTEMS RETRIEVED ARE EXPANDED 
AND COPIED TO THE IS WORK SPACE (SEE 
EXPAND DOCUMENTATION)$ IGNORED IF THE 
"CC" OPTION IS NOT PRESENT 


F FILE ACCESS ONLY #» FILE PARAMETERS ARE 
SET UP BUT ANY ITEMeLIST IS IGNORED BY 
TCLeIts IF THIS OPTION IS PRESENT, ANY 
OTHERS ARE IGNORED 


N NEW ITEM ACCEPTABLE »@ IF THE ITEM 
SPECIFIED IS NOT ON GILE,. THE SECONDARY 
PROCESSOR STILL GETS CONTROL (THE 
ENITOR, FOR EXAMPLE, CAN PROCESS A NEW 


ITEM) 

P PRINT »© ON A FULL FILE RETRIEVAL (ALL 

TCLeII 

ITEMS), THE ITEMeID OF EACH ITEM I8 
PRINTED AS IT IS RETRIEVED 

U UPDATING SEQUENCE FLAGGED © IF ITEMS ARE 
TO UPDATED AS RETRIEVED, THIS OPTION J83 
MANDATORY 

Z FINAL ENTRY REQUIRED # THE SECONDARY 


PROCESSOR WILL BE ENTERED ONCE MORE 
AFTER ALL ITEMS HAVE BEEN RETRIEVED (THE 
COPY PROCESSOR, FOR INSTANCE, USES THIS 
OPTION TO PRINT A MESSAGE) 


THE INPUT DATA STRING TO TCLeII CONSISTS OF THE FILE@#NAME 
(OPTIONALLY PRECEDED RY THE MODIFIER "DICT", WHICH SPECIFIES 
ACCESS TO THE DICTIONARY OF THE FYLE), FOLLOWED BY A LIST OF 
ITEMS, OR AN ASTERISK ("#") SPECIFYING RETRIEVAL OF ALL 
ITEMS IN THE FILE. 


INPUT INTERFACE 


IR R POINTS TO THE AM BEFORE ATTRIBUTE 5S OF 
THE VERB 


SR4 X) POINTS TO THE AM AT THE ENO OF THE VERB 
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MODEIDe 


BMSBEG 


ISBEG 


T 


S 


8 


CONTAINS THE MODE#ID OF THE PROCESSOR TO 
WHICH TCLeII TRANSFERS CONTROL (ASSUMING 
NO ERROR CONDITIONS ARE ENCOUNTERED) 


POINTS ONE PRIOR TO AN AREA WHERE THE 
FILE NAME YS TO BE COPIED, IF THE "F® 
OPTION IS PRESENT, OTHERWISE ONE PRIOR 
TO AN AREA WHERE ITEMeIDS ARE TO 8E 
COPTED 


POINTS ONE PRIOR TO AN AREA WHERE ITEMS 
ARE TO BE COPIED, IF THRE "C" OPTION IS 
PRESENT 


ELEMENTS AS REQUIRED BY GETFILE 


OUTPUT INTERFACE 


TCLelIl 


DAF 1 
DAFe2 
DAFS3 
DAF4 
DAFS 


DAF6 
DAF1I0 


DAP 11 


SET IF THE "U" OPTION IS SPECIFIED 
SET IF THE "C" OPTION IS SPECIFIED 

SET IF THE "P" OPTION IS SPECIFIED 

SET IF THE "N® OPTION IS SPECIFIED 

SET IF THE "Z" OPTION IS SPECIFIED 

SET TF THE "F" OPTION I8 SPECIFIEO, OR 
IF A FULL FILE RETRIEVAL 18 SPECIFIED 
(NO "FE" OPTION) 

SET IF MORE THAN ONE ITEM {IS SPECIFIED 
IN THE INPUT DATA, BUT NOT A FULL FILE 
RETRIEVAL ("ae") 


SET IF THE "E" OPTION IS SPECIFIED 


NOTES THE ABOVE BITS ARE NOT INITIALIZED TO ZERO 


DAF 8 


SET IF A+ FILE DICTIONARY IS BEING 
ACCESSED, OTHERWISE RESET (FROM GETFILE) 


20 


POINTS ONE PAST THE END OF THE FILE NAME 
IN THE INPUT STRING IF THE "F* OPTION IS 
PRESENT# POINTS TC THE LAST AM IN” THE 
COPIED ITEM IF THE "C" OPTION IS 
PRESENT, OTHERWISE TO THE END OF THE 
INPUT STRING 
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ISBEG 
BMSBEG 


RMBIT 


SBASE 


TCLe#II 


SMOD 
SSEP 


BASE 
MODULO 
SEPAR 


DBASE 
OMOD 
DOSEP 


SCO 


UNCHANGED 


SET IF THE FILE IS SUCCESSFULLY 
RETRIEVED IF THE "F* OPTION IS PRESENT 


CONTAIN THE BASE, MODULO, AND SEPARATION 


OF THE FILE BEING ACCESSED 


SSBASE, SM0OD., SSEP ON THE FIRST EXIT 


ONLY CFROM MD200) 


CONTAIN THE BASE, MODULO, AND SEPARATION 
OF THE DICTIONARY OF THE FILE BEING 
ACCESSED IF THE "F" QPTION I8 PRESENT 


CONTAINS A SB IF THE LAST ITEMeID IN THE 
INPUT STRING ITS ENCLOSED IN QUOTE MARKS, 
OTHERWISE CONTAINS A BLANK 


THE FOLLOWING SPECIFICATIONS ARE MEANINGFUL ONLY WHEN 


THE "F® 


SRO 


SIZE 


SR4 


ISEND 


IR 


RMODE 


XMODE 


VOBIT 


ELEMENT USAGE 


S 


OPTION IS NOT PRESENTS 


POINTS ONE PRTOR TO THE COUNT FIELD OF 


THE RETRIEVED ITEM 


CONTAINS THE VALUE OF THE COUNT FIELD OF 
THE RETRIEVED ITEM 


POINTS TO THE LAST AM OF THE RETRIEVED 


ITEM 

21S IF THE "C*® OPTION IS PRESENT 

POINTS TO THE LAST AM OF THE RETRIEVED 
ITEM TO BE COPIED, IF THE "C* OPTION IS 
PRESENT, OTHERWISE POINTS TO THE AM 
FOLLOWING THE ITEMeID 


=sMD201 TF ITEMS ARE LEFT TO BE 
PROCESSED, OTHERWISE®0 


£0 


20 (M0201 ONLY) 
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TCL#II 


C1 T USED FOR ERROR MESSAGES 
ELEMENTS USED BY THE VARIOUS SUBROUTINES BELOW 


SUBROUTINE USAGE 


GETFILEs IF NO ‘Ft OPTIONS GETITM FOR FULL FILE 
RETRIEVAL, RETIX AND ONE INTERNAL SUBROUTINE IF NOT 
FULL FILE RETRIEVAL, GETSPC TF MORE THAN ONE ITEM (BUT 
NOT "we") SPECIFIED, EXPAND IF THE "E" OPTION IS 
PRESENT, WRITLIN IF THE "P" OPTION IS PRESENT 


MD201 ONLY: WSINTTS GNTBLI IF MORE THAN ONE ITEM (8UT 
NOT x") SPECIFIED 


MD995 AND BMSOVF USED WITH XMODE 
SEVEN ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED 


BY MO2003 FIVE ADDITIONAL LEVELS REQUIRED BY MN201 FOR 
FULL FILE RETRIEVAL, OTHERWISE THREE LEVELS REQUIRED 


ERROR CONDITIONS 


THE FOLLOWING CONDITIONS CAUSE AN EXIT TO THE WRAPUP 
PROCESSOR WITH THE ERROR NUMBER INDICATEDS 


ERROR CONDITION 

13 DL/ID ITEM NOT FOUND, OR IN BAD FORMAT 

199 IS WORK SPACE NOT BIG ENOUGH WHEN THE 
"C" OPTION IS SPECIFIED 

200 NO FILE NAME SPECIFIED 

201 FILE NAME ILLEGAL OR INCORRECTLY DEFINED 


IN THE M/DICT 
e0e ITEM NOT ON FILE, ALL MESSAGES OF THIS 
TYPE ARE STORED UNTIL ALL ITEMS HAVE 


BEEN PROCESSED# ITEMS WHICH ARE ON FILE 
ARE STILL PROCESSED 


TCLeIT 


203 NO ITEM LIST SPECIFIED 


TIME, DATE, TIMOATE 


TIME (5,SYSTEM#SUBSeII)« 
DATE (CHs8SYSTEM@SURSeJTI)« 
TIMDATE (4,SYSTEM::SUBSeIT)x 


FUNCTIONAL DESCRIPTION 
THESE ROUTINES RETURN THE SYSTFM TIME AND/OR THE SYSTEM 


DATE, AND STORE IT IN THE BUFFER AREA SPECIFIED BY FPEGISTER 
R15. THE TIME IS RETURNEN AS ON A 24eHOQUR CLOCK, 


ENTRY BUFFER SIZE FORMAT 
REQUIRED (BYTES) 
TIME 9 HHsMM3SS 
DATE 12 DD MMM YYYY 
TIMNATE 22 HHtMMESS OD MMM YYYY 


INPUT INTERFACE 
R15 R POINTS ONE PRIOR TO THE BUFFER AREA 
OUTPUT INTERFACE 
R15 R POINTS TO THE LAST BYTE OF THE DATA 
STORED’ THE BYTE IMMEDIATELY FOLLOWING 
CONTAINS A BLANK 
RIAFID D 20 (DATE AND FIMDATE ONLY) 


ELEMENT USAGE 


DO D ¢ 

Di 0 « USED BY TIME AND TIMCATE ONLY 
De 0 ¢ 

03 D 6+ 


SUBROUTINE USAGE 
TIME USED BY TIMDATES MBDSUB USED FY TIME 


TWO ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED SY 


TIME, DATE. TIMDATE 


TIMOATE, ONE LEVEL REQUIRED BY TIME, NONE BY DATE 
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TPREAD, TPWRIYE 


TPREAD (6,TAPEITO#] )«® 
TPWRITE (7, TAPEIOWI)«# 


FUNCTIONAL DESCRIPTION 


TPREAD READS ONE RECORO FROM THE TAPE INTO THE TAPE BUFFER 
(FRAME FFFFI0)3 THE READ STOPS EYTHER WHEN THE INTER*RECORD 
GAP IN THE TAPE IS DETECTED, OR AY THE END OF THE BUFFER, 


TPWRITE WRITES ONE RECORD) FROM THE TAPE BUFFER TO MAGNETIC 
TAPES THE NUMBER OF BYTES WRITTEN IS SET UP BY THE "TeATT" 
VERB. 


INPUT INTERFACE 


ATTACH B MUST BE SET, INDICATING THAT THE TAPE 
UNIT £S ATTACHED 


OUTPUT INTERFACE 


Ri5 R FOR TPREAD, POINTS TO THE LAST BYTE 
READ 


BYTESRD T SET T) THE NUMBER OF BYTES READ IN BY 
TPREADS SET TO THE TAPE RECORD SIZE BY 


TPWRITE 
POFLG 8 + 
VOBIT B + SET TO ZERO ON ERROR EXITS (SEE BELOW) 
RMODE T »¢ 


THE TAPE STATUS BIYS ARE RESET APPROPRIATELY (SEE 
TPSTAT DOCUMENTATION) 


ELEMENT USAGE 


DQ 0 ¢ 

D4 D + UTILIVY 

Ta Tt + 

Rid R °¢ 

Resto C USED YO IDENTIFY EITHER A READ OPERATION 


(BIT ZERO SET) OR WRITE OPERATION (BIT 


TPREAD, TPWRITE 


ZERO RESET) IN PROGRESS, FOR USE BY 
COMMON ROUTINES 


CTRi T USED IF TPWRITE ENCOUNTERS AN 
END*OFeTAPE CONDITION 


ALL ELEMENTS USED BY FRMNMP TF THAT ROUTINE TS CALLED 
BY RDPARITY (SEE ROPARITY AND FRMDMP DOCUMENTATION) 


SUBROUTINE USAGE 


INIT? TPSTAT! REWIND, CRLFPRINT, PCRLF,. PRINT (FOR 
UNLABELED TAPES), AND THREE INTERNAL SUBROUTINES ON 
END@OF*#TAPE CONDITIONS, AND TPREAD, CVDR15, BCKSP, AND 
ANOTHER INTERNAL SUBROUTINE ON TPREAD ENDOF we TAPE 
CONDITIONS ONLYs B8CKSP ON PARITY ERRORS, AND ROPARITY 
ON TPREAD PARITY ERRORS ONLY AFTER THE NORMAL NUMBER OF 
RETRIES (SEE BELOW) 


MAXIMUM NINE ADDITIONAL LEVELS OF SUBROUTINE LINKAGE 
REGUIRED BY TPREAD (FOR PARITY ERRORS ON READING LABELS 
OF TAPE REELS AFTER THE FIRST)8 FOUR LEVELS REQUIRED 
BY TPWRITE 


ERROR CONDITIONS 


READ PARITY ERRORs THE READ IS REPEATED TWENTY TIMES? 
IF THE PARITY ERROR PERSISTS. ROPARITY IS CALLED 


WRITE PARITY ERROR? THE SEQUENCE "BACKSPACE / WRITE 
ENDeOF*FILE MARK / BACKSPACE AND REPEAT WRITE" [8 
REPEATED TWENTY TIMESs IF THE PARITY ERROR PERSISTS, 
AN EXIT IS TAKEN TO MD99 WITH MESSAGE 98 


END OF FILES AN EXIT IS TAKEN TO MD99 WITH MESSAGE 94 
ON A READ 


TAPE NOT ATTACHED AN EXIT YS TAKEN TO MO99 WITH 
MESSAGE 93 


TPSTAT, TPINIT 


TPSTAT C15, TAPEIOe])« 
TPINIT (12, TAPEIOeI)* 


FUNCTIONAL DESCRIPTION 


THESE TAPE CONTROL SUBROUTINES ARE USED BY ALL OTHER SYSTEM 
TAPE 1/0 ROUTINES. TPINIT OUTPUTS A FUNCTION®CODE OF "1" TO 
THE TAPE CONTROLLER, THEREBY SETTING IT TO AN INITIAL 
CONDITION, AND THEN FALLS INTO TPSTAT TO GET THE TAPE STATUS 
FROM THE CONTROLLER. IT RETURNS IF THE TAPE IS IN A "READY" 
STATE. IF THE TAPE ITS REWINDING, THE SUBROUTINE WAITS UNTIL 
IT IS FINISHED. OTHERWISE, THE STATUS IS TESTED UP TO ONE 
HUNDRED TIMESs IF THE TAPE IS STILL NOT READY, NOTREADY IS 
CALLED. 
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INPUT INTERFACE 


ATTACH B 


Ri4 R 


QUTPUT INTERFACE 


REJCTR T 
POFLG B 
VOBIT 5 
RMODE T 
TAPE STATUS 
EOFBIT B 
EOTBIT B 
NORING B 


TPSTAT, TPINIT 


PARITY B 

TPROY B 
ELEMENT USAGE 

T6 T 

R15 R 
SUBROUTINE USAGE 


NOTREADY IF 


+ 
+ 
+ 


siz CONVENTIONALLY, THE TCL VERB TeATT 
IS USED TO SET THIS BIT 


POINTS TO WALFeTALLY TAPSTWs TPINIT SETS 


THIS REGISTER AS PART OF THE 
INITIALIZATION PROCESS 


SET TO ZERO BY INIT, AND BY TPSTAT AFTER 
A "NOTePREADY" CONDITION 


SET TO ZERO YF ATTACH IS ZERO 


BITS! 


SET IF AN END@OF*FILE MARK IS REACHED 


SET IF THE TAPE IS AT LOAD POINT. OR AT 
THE END@OFe@TAPE MARKER 


SET. ON A WRITE OPERATION, IF THE WRITE 
RING IN THE TAPE IS NOT PRESENT 


SET IF A PARITY ERROR IS DETECTED 


SET IF THE TAPE IS READY 


USED AS A DELAY COUNTER 


UTILITY 


THE TAPE IS NOT READY 


THREE ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REGUIRED 
(FOR NOTREADY) 


EXITS 


TO MD99 WITH MESSAGE 93 ("ATTACH THE TAPE UNIT") IF 


ATTACH=0 
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TSINIT 


TSINIT (3,TCL#INIT)*« 
FUNCTIONAL DESCRIPTION 


THIS ROUTINE INITIALIZES THE REGISTER TRIAD ASSOCIATED WITH 
THE TS WORK SPACE, 


INPUT INTERFACE 
NONE 


OUTPUT INTERFACE 


TS R + POINT TO THE BEGINNING OF THE TS WORK 
TSBEG S + SPACE (PCRe5) 

(R14 R) + 

TSEND S + POINT TO THE LAST BYTE OF THE TS WORK 
(R15 R) + SPACE (511 BYTES PAST TSBEG)# NOTE THIS 


TS AN UNLINKED WORK SPACE 
THE FIRST BYTE OF THE WORK SPACE IS SET TO X'00!. 
ELEMENT USAGE 
NONE CEXCEPT DO) 
SUBROUTINE USAGE 
ONE INTERNAL SUBROUTINE 
ONE ADDITIONAL LEVEL OF SUBROUTINE LINKAGE REQUIRED 


UPDITM 


UPDITM (O,WRAPUPeII)» 


FUNCTIONAL DESCRIPTION 


UPDITM PERFORMS UPDATES TO A DISC FILE DEFINED BY ITS’ BASE 
FID, MODULO, AND SEPARATION. IF THE ITEM IS TO BE DELETED, 
THE ROUTINE COMPRESSES THE REMAINDER OF THE OATA IN THE 
GROUP IN WHICH THE ITEM RESIDESS IF THE ITEM IS TO BE 
ADDED, IT IS ADDED AT THE END OF THE CURRENT DATA IN THE 
GROUPS IF THE ITEM I8 TO SBE REPLACED, IT IS REPLACED IN 
PLACE, SLIDING THE REMAINING ITEMS IN THE GROUP TO THE LEFT 
OR RIGHT AS NECESSARY, 
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IF THE UPDATE CAUSES THE DATA IN THE GROUP TO REACH THE END 
OF THE LINKED FRAMES, NEXTOVF IS ENTERED TO OBTAIN ANOTHER 
FRAME FROM THE OVERFLOW SPACE POOL AND LINK IT TO THE 
PREVIOUS LINKED SETS AS MANY FRAMES AS REGUIRED ARE ADDED. 
IF THE DELETION OR REPLACEMENT OF AN ITEM CAUSES AN EMPTY 
FRAME AT THE END OF THE LINKED FRAME SET, AND THAT FRAME IS 
NOT IN THE "PRIMARY® AREA OF THE GROUP, IT IS RELEASED TO 
THE OVERFLOW SPACE POOL. 


RETIXU IS USED TO RETRIEVE THE ITEM TO BE UPDATED. LOCKING 
THE GROUP, 


ONCE THE ITEM IS RETRIEVED. PROCESSING CANNOT BE INTERRUPTED 
UNTIL COMPLETED. 


INPUT INTERFACE 


BMSBEG S POINTS ONE PRIOR TO THE ITEMeID OF THE 
ITEM TO BE UPDATED3 THE ITEMeID MUST BE 
TERMINATED BY AN AM 


TS R POINTS ONE PRIOR TO THE ITEM BODY TO BE 
ADDED OR REPLACED (NO ITEMeID OR COUNT 
FIELO)s NOT NEEDED FOR DELETIONSS THE 
ITEM BODY MUST BE TERMINATED BY A SM 


CH6 C CONTAINS THE CHARACTER 'D! FOR’ ITEM 
DELETIONS 'U' FOR ITEM ADDITION OR 
REPLACEMENT 
UPDITM 
BASE D + CONTAIN THE BASE, MODULO, AND SEPARATION 
MODULO Y « OF THE FILE BEING UPDATED 


SEPAR T ¢ 
OUTPUT INTERFACE 
NONE 
ELEMENT USAGE 


DAF9 
T3 

T4 

TS 
SIZE 
D3 

Da 
OVRFLW 
RECORD 
NNCF 
FRMN 
FRMP 
NPCF 


UTILITY 


zoo rWV90V 980 +4134 @D 
eee e+ eee eee & 
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IR R ¢ 
UPD R ¢ 
BMS R ¢ 
CS R °¢ 
R4iG R ¢ 
R15 R + 
SR4 S$ ¢ 


ELEMENTS USED BY THE VARIOUS SUBROUTINES BELOW 
SUBROUTINE USAGE 

RDLINKS RDREC? RETIXUs DECINHIB?  GUNLOCK? RELCHN 

IF OVERFLOW FRAMES RETURNED$ ATTSPC IF MORE OVERFLOW 

FRAMES NEEDED? TWO INTERNAL SUBROUTINES 

NEXTOFV AND ONE LOCAL SUBROUTINE USED WITH XMODE 


FOUR ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED 


UPDITM 


ERROR CONDITIONS 


1. IF THE GROUP DATA IS BAD (PREMATURE END OF LINKED 
FRAMES, OR NON@HEXADECIMAL CHARACTER FOUND IN AN ITEM 
COUNT FIELO), IROVF [8S ENTERED TO PRINT A WARNING 
MESSAGE, AND THE GROUP DATA IS TERMINATED AT THE END OF 
THE LAST GOOD ITEM BEFORE PROCESSING CONTINUES 


2. IF THE FILE BEING UPDATE IS THE M/DICT 
(BASESMBASE), AND BIT SYSPRIVi IS ZERO, PRIVTSTe2 IS 
ENTERED AND NO UPDATE IS PERFORMED 


3. j&IF THE ITEMeID CONTAINS MORE THAN 50 CHARACTERS, IT 
TS TRUNCATED WITHOUT ANY INOICATION 


G4, IF THE YJTEM EXCEEDS THE MAXIMUM SIZE (32267 BYTES, 


X'7E0B'), THE ITEM IS TRUNCATED TO THE MAXIMUM SIZE, 
AND NO INDICATION I8 GIVEN 


wE OF 


WEOF C11, TAPETO#I)»* 
FUNCTIONAL DESCRIPTION 


WEOF WRITES AN END@OF*FILE MARK ON THE TAPE. IF BIT PROTECT 
IS SET, IT CALLS NORING REPEATEDLY UNTIL IT IS RESET (OR BIT 
ATTACH IS RESET) BEFORE ATTEMPTING A WRITE. WEOF ALSO CALLS 
INIT AND TPSTAT, AND REQUIRES FOUR ADDITIONAL LEVELS OF 
SUBROUTINE LINKAGE. 


5-84 


WRAPUP 


WRAPUP PROCESSOR 


MN992P (6,WRAPLIIPeI)» 
MD993 (2,WRAPUPe])* 
MD994 (4,WRAPUP@])« 
M0995 (3,WRAPUPe])« 
MD99 (O,WRAPLUP}«I)* 
MD999 (1,WRAPUP@])« 


FUNCTIONAL DESCRIPTION 


THESE ARE THE ENTRY POINTS INTO THE SYSTEM ROUTINE WHICH 
"WRAPS UP" THE PROCESSING INITTATED BY A TCL STATEMENT, 
PERFORMS DISK UPDATES AND PRINTS MESSAGES AS REQUIRED, AND 
REINITIALIZES FUNCTIONAL ELEMENTS FOR PROCESSING ANOTHER TCL 
STATEMENT. WRAPUP MAY ALSO BE TREATED AS A SUBROUTINE BY 
SETTING TALLY RMODE TO THE MONDE*#ID OF THE ROUTINE TO WHICH 
WRAPUP SHOULD RETURN CONTROL AFTER IT IS DONE, NOTE, 
HOWEVER, THAT WRAPUP ALWAYS SET THE RETURN STACK TO A NULL 
OR EMPTY CONDITION BEFORE EXITING. 


THE VARIOUS ENTRY POINTS ARE PROVIDFOD TO SIMPLIFY THE 
INTERFACE REQUIREMENTS WHEN WRAPUP IS USED TO STORE OR PRINT 
MESSAGES FROM THE ERRMSG FILE# THE FEATURES OF EACH CAN BE 
SEEN IN THE FOLLOWING TABLES 


M0992 Ci CONTAINS A MESSAGE NUMBER? D9 
CONTAINS A NUMERIC PARAMETERS THE VALUE 
IN C1, CONVERTED TO AN ASCIY STRING, IS 
USED AS THE ITEMeID OF AN ITEM TO BE 
RETRIEVED FROM THE MESSAGE FILE 
(NORMALLY ERRMSG)3 THE MESSAGE IS SET UP 
IN THE HISTORY STRING (SEE BELOW), ANDO 
CONTROL PASSES TO MND99 


M0993 Ci CONTAINS A MESSAGE NUMBER? Ce 
CONTAINS A NUMERIC PARAMETER? THE VALUE 
IN Cis CONVERTED TO AN ASCII STRING, IS 
USED AS THE ITEM#ID OF AN ITEM TO BE 
RETRIEVED FROM THE MESSAGE FILE 
(NORMALLY ERRMSG)? THE MESSAGE IS SET UP 
IN THE HISTORY STRING (SEE BELOW), AND 
CONTROL PASSES TO MN9S 


WRAPUP 


MD994 Ci CONTAINS A MESSAGE NUMBER? IS POINTS 
ONE BEFORE THE BEGINNING OF A STRING 
PARAMETER. WHICH IS TERMINATED BY AN AM 
OR SMs THE MESSAGE IS SET UP IN THE 
HISTORY STRING AND CONTROL PASSES TO 
M099 
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M0995 LIKE MD994, EXCEPT THE STRING PARAMETER 
IS STORED AT BMSBEG4+1 THROUGH AN AM OR 
SM 


MD99 MESSAGE NUMBERS (WITKOUT ANY PARAMETERS) 
MAY BE STORED IN REJCTR, REJO, AND REJ1 
(NO ACTION IS TAKEN IF ZERO)? IF RMODE 
IS ZERO, MESSAGES ARE PRINTED REGARDLESS 
OF THE VALUE OF VOBIT (SEE SELOW)? THE 
MESSAGES ARE SET UP IN THE HISTORY 
STRING AND CONTROL PASSES TO MD999 


MD999 THE HISTORY STRING JIS PROCESSED, AND 
PROCESS WORK SPACES ARE REINITIALIZED3 
CONTROL PASSES TO TCL IF RMODE IS’ ZERO, 
OTHERWISE TO THE ROUTINE SPECIFIED &Y 


RMODE 
INPUT INTERFACE 
HSBEG S + POINT ONE BEFORE THE BEGINNING AND TO 
HSEND S ¢ THE END, RESPECTIVELY, OF THE HISTORY 
STRING? IF HSBEGSHSEND, THE STRING IS 
NULL 


THREE TYPES OF HISTORY STRING ELEMENTS ARE RECOGNIZED 
BY WRAPUPS?S ALL OTHERS ARE IGNORED, THE TYPE OF 
PROCESSING DONE FOR EACH ELEMENT DEPENOS ON THE SECOND, 
AND POSSIBLY THIRD CHARACTER OF THE ELEMENT STRING, 
(THE QUOTE MARKS IN THE FOLLOWING EXAMPLES ARE NOT PART 
OF THE STRINGS.) 


1. OUTPUT MESSAGE 


SM "0" AM MESSAGEeIN AM (PARAMETER AM...) SM 


WRAPUP 
WHERE “MESSAGE#ID" 18 THE ITEM*eID (NORMALLY A 
DECIMAL NUMERIC) OF AN ITEM IN THE MESSAGE FILE 


THE PARAMETER STRING TS PASSED TO PRTERR- FOR 
MESSAGE FORMATTING (SEE PRTERR DOCUMENTATION) 


2. OISK UPDATE/DELETE 


SM "DU" AM BASE VM MODULO VM SEPARATION AM ITEMeID 
AM ITEM@#BODY AM SM 


SM "DD" AM BASE VM MODULO VM SEPARATION AM ITEMeID 
AM SM 


WHERE "DU" CAUSES THE ITEM IN THE FILE SPECIFIED 


BY "BASE", "MODULO*, AND “SEPARATION*® TO BE 
REPLACE, AND "DD* DELETES IT 


5-86 


3. CEND OF HISTORY STRING) 


3M 


CONVENTIONALLY, 


H7® 


A PROCESS WISHING TO ADD DATA TO THE 


HISTORY STRING BEGINS AT HSEND*1i3 AFTER THE ADOITIONAL 


ELEMENTS HAVE REEN ANDED, THE STRING’ IS TERMINATED 

(ONCE AGAIN) BY A SM AND "2", AND HSEND IS SET POINTING 

TO THIS SM, 

WMODE T IF NON»ZERO, THE VALUE IS USED AS_ THE 
MONFeIfN FOR AN’ INDIRECT SUBROUTINE CALL 
(BSLI *) EXECUTED IMMEDIATELY AFTER THE 
HISTORY STRING HAS BEEN ‘PROCESSED, AND 
BEFORE WORK SPACE AND PRINTER 
CHARACTERISTICS ARE RESET; THIS ALLOWS 
SPECIAL PROCFSSING TO BE DONE ON ANY 
ENTRY INTO WRAPUP ~ 

RMODE T IF NONeZERO, WRAPUP EXITS TO THE 
SPECIFIED MODE#ID INSTEAD OF TO TCL 

VOBIT 8 IF SET, AND RMODE IS NONeZERO, MESSAGES 
ARE STORED IN THE HISTORY STRING, FOR 
OUTPUT ON A LATER ENTRY INTO WRAPUP WITH 

WRAPUP 

RMODE ZERO 

REJCTR T + MAY CONTAIN MESSAGE NUMBERS WHICH DO NOT 

RE JO T + REQUIRE PARAMETERS# REJCTR IS ALWAYS 

REJ1 T + TESTED FIRST. THEN REJO, AND THEN REJI? 
NO ACTION IS TAKEN ON A ZERO VALUES A 
VALUE OF 9999 I8 USED INTERNALLY BY 
WRAPUP TO IDENTIFY WHICH MESSAGES HAVE 
BEEN PROCESSED, AND SHOULD NOT NORMALLY 
BE USED AS AN INPUT VALUE FOR REJO OR 
REJ1 

Ci T + (SEE MD992e, MD993, M0994, AND MD995 

C2 T «+ ABOVE) 

09 dD «+ 

LPBIT 8 IF SET. ALL OPEN SPOOL FILES ARE CLOSED 

OVRFLCTR O TF NON@ZERO, USED AS THE STARTING FIO OF 


A LINKED SET OF OVERFLOW FRAMES WHICH IS 
RELEASED TO THE SYSTEM OVERFLOW SPACE 
POOL? USED BY SORT. FOR INSTANCE, TO 
STORE THE BEGINNING FID OF A SORTED 
TABLE. IN WHICH CASE THE OVERFLOW SPACE 
USED BY SORT IS ALWAYS RELEASED, EVEN IF 
PROCESSING [8 ABORTED BY AN "END" 


COMMAND FROM DEBUG 
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USER T USED TO CONTROL THE FINAL EXIT FROM 
WRAPUP WHEN RMODE&03 SEE “EXITS" 


OUTPUT INTERFACE 


HSENN Ss SHSREG EXCEPT WHEN MESSAGES ARE STORED 
INSTEAD OF PRINTED 


VOBIT 8 +¢ 

LPAIT B ¢ 

WMODE Y ¢ 30 

REJCTR T + 

RE JO T ¢ 

REJ1 T ¢ 
WRAPUP 


RETURN STACK NULL$ RSENDsX'O1B0', RSCWASX'0184', AND 
THE REST OF THE RETURN STACK IS” FILLED 
WITH X'PFt 

RMODE T SET TO ZERO BY YCLXIT AND NSPCA 

INHIBITH H 20 


ELEMENTS AS INITIALIZED BY WSINIT (CAND ISINIT IF 
RMODE#0) 


THE FOLLOWING ELEMENTS ARE SET UP ONLY IF RMODESO3 


XMODE T * #0 
OVRFLCTR T #¢ 


IBSIZE T 2140 
ELEMENT USAGE 


UPD R 

BASE dD 6+ 

MODULO T «+ USED IN DISK UPDATES 
SEPAR T *¢ 

CH8 Cc ¢ 


ELEMENTS USED BY THE SUBROUTINES BELOW 
SUBROUTINE USAGE 


WSINITS’ MBDSUB FOR MESSAGE NUMBERSS3 PRTERR TO PRINT 
MESSAGES?3 CvOIs ANDO UPOYTM TO DO DISK UPOATES3 
CRLFPRINT IF A FORMAT ERROR TS FOUND IN A "OD* OR *DU* 
HISTORY STRING ELEMENT? PCLOSEALL IF LPBIT#13 IF 
RMODESO: IYSINIT, RESETTERM, RELSP (IF USER#2), RELCHN 
(IF OVRFLCTR IS NON#ZERO) 


5-88 


MAXIMUM OF SEVEN ADDITIONAL LEVELS OF SUBROUTINE 
LINKAGE REQUIRED YF RELCHN MUST PRINT AN ERROR MESSAGE? 
MAXIMUM OF SIX LEVELS REQUIRED FOR PRTERR# FOUR LEVELS 
REGUIRED FOR UPOITMs THREE LEVELS REQUIRED FOR ISINIT? 
TWO LEVELS ALWAYS NEEDED FOR WSINIT 


WRAPUP 


EXITS 


TO THE ENTRY POINT SPECIFIED IN RMODE IF NON@ZERO? TO 
LOGOFF IF USER=3 (SET, FOR INSTANCE, BY THE DEBUG "OFF" 
COMMAND) 3 TO MDO TF USER=z2 (SET BY THE LOGOFF 
PROCESSOR)’ OTHERWISE TO MD1 


ERROR CONDITIONS 


IF A FORMAT ERROR IS FOUND IN A "DD" OR "OU" HISTORY 
STRING ELEMENT, THE MESSAGE 


OTSKeUPD STRING ERR 


IS DISPLAYED, AND PROCESSING CONTINUES WITH THE NEXT 
ELEMENT 


WRTLIN, WTe, WRITOB 


WRTLIN (@,TERMIO)* 
WT2 (10, TERMIO) 
WRITOB (3, TERMIO)* 


FUNCTIONAL DESCRIPTION 


THESE ARE THE STANDARD ROUTINES FOR OUTPUTTING DATA TO THE 
TERMINAL OR LINE PRINTER, ENTRY WRILIN DELETES TRAILING 
BLANKS FROM THE DATA AND THEN ENTERS WTe, WT2e ADDS A 
TRAILING CARRIAGE RETURN AND LINE FEED, INCREMENTS LINCTR, 
AND ENTERS WRITOB., WHICH OUTPUTS THE DATA, 


THE DATA TO BE OUTPUT IS POINTED TO BY OBBEG, AND CONTINUES 
THROUGH THE ADDRESS POINTED TO S8Y OB, OUTPUT IS ROUTED TO 
THE TERMINAL IF BIT LPBIT IS OFF, OTHERWISE IT IS STORED IN 
THE PRINTER SPOOLING AREA, PAGINATION AND PAGE#HEADING 
ROUTINES ARE INVOKED AUTOMATICALLY IF BIT PAGINATE IS SET, 
IF IT 18 SET. THEN WHEN THE NUMBER OF LINES OUTPUT IN’ THE 
CURRENT PAGE (IN LINCTR) EXCEEDS THE PAGE SIZE (IN PAGSIZE), 
THE FOLLOWING ACTIONS TAKE PLACE? 1) THE NUMBER OF LINES 
SPECIFIED IN PAGSKIP ARE SKIPPED, 2) THE PAGE NUMBER IN 
PAGNUM I8 INCREMENTED, AND 3) A NEW HEADING IS PRINTED (SEE 
PRNTHDR DOCUMENTATION). A VALUE OF ZERO IN PAGSIZE 
SUPPRESSES PAGINATION, HOWEVER, REGARDLESS OF THE SETING OF 
PAGINATE, 
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INPUT INTERFACE 


OBBEG S 
OB R 
LPBIT B 
LISTFLAG 8 
WRTLIN, We, WRITOB 
NOBLNK B 
LFOLY T 
PAGINATE 8 
PFILE T 


POINTS ONE BYTE PRIOR TO THE OUTPUT DATA 
BUFFER 


POINTS TO THE LAST CHARACTER IN THE 
BUFFER: THE BUFFER MUST EXTEND AT LEAST 
ONE CHARACTER BEYOND THIS LOCATION 


IF SET, OUTPUT IS ROUTED TO THE SPOOLER 
(NOTES ROUTINE SETLPTR SHOULD BE USED TO 
SET THIS BIT SO PRINTER CHARACTERISTICS 
ARE SET UP CORRECTLY) 


IF SET, ALL OUTPUT TO THE TERMINAL IS 
SUPPRESSED 


IF SET, BLANKING OF THE OUTPUT BUFFER IS 
SUPPRESSED 


LOWER BYTE CONTAINS THE NUMBER OF "FILL" 
CHARACTERS TO BE OUTPUT AFTER A CR/LP 


IF SET, PAGINATION AND PAGE*HEADINGS ARE 
INVOKED 


CONTAINS THE PRINT FILE NUMBER FOR PPUT? 
MEANINGFUL ONLY IF LPBIT IS SET 


THE FOLLOWING SPECIFICATIONS ARE MEANINGFUL ONLY IF 
PAGINATE IS SETS 


PAGHEAD 


PAGSIZE 


PAGSKIP 


PAGNUM 
PAGFRMT 


S 


POINTS ONE BYTE BEFORE THE BEGINNING OF 
THE PAGE*HEADING MESSAGES IF THE FRAME 
FIELO OF THYS REGISTER IS ZERO, NO 
HEADING IS PRINTED 


CONTAINS THE NUMBER OF PRINTABLE LINES 
PER PAGE 


CONTAINS THE NUMBER OF LINES TO BE 
SKIPPED AT THE BOTTOM OF EACH PAGE 


CONTAINS THE CURRENT PAGE NUMBER 
IF SET, THE PROCESS PAUSES AT THE END OF 
EACH PAGE OF OUTPUT UNTIL SOME TERMINAL 


INPUT (CEVEN JUST A CARRIAGE RETURN) IS 
ENTERED 
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LFOLY T IF THE UPPER BYTE IS GREATER THAN ONE, 
AND OUTPUT 1S TO THE TERMINAL, A 
FORM*FEED (xX'0C') IS OUTPUT AT THE TOP 
EACH PAGE, AND THE NUMBER IN THE’ UPPER 
BYTE IS USED AS THE NUMBER OF "FILL* 
CHARACTERS OUTPUT AFTER THE FORMmFEED 


OUTPUT INTERFACE 


WRTLIN, WT2. WRITOB 


0B R zOBBEG 


THE FOLLOWING SPECIFICATIONS ARE MEANINGFUL ONLY IF 
PAGINATE J3S SET: 


LINCTR J + RESET APPROPRIATELY 
PAGNUM Tt ¢ 


T7 T CONTAINS THE ORIGINAL VALUE OF PAGNUM 


ELEMENT USAGE 


Rig R + 

Ris R + SCRATCH 

SYSRi S *¢ 

R8 R °¢ 

RECORD T + USED BY PPUT CWHEN LPBIT I8 SET) 

OVRFLW T ¢ 

SYSR2 § USED IF PAGINATE IS SET AND THE HEADER 
MESSAGE CONTAINS A VM 

Ta T +¢ 

T§ JT ¢ USED IF PAGINATE IS SET AND THE HEADER 

De D + MESSAGE CONTAINS A SVM 

D3 D ¢ 


ALL ELEMENTS USED BY ATTOVF (CALLED BY PPUT IF MORE 
DISK SPACE NEEDED) 


SUBROUTINE USAGE 


FFOLYs PPUT (CIF LPBIT SET), WT2 CIF PAGINATE SET AND 
THE HEADER MESSAGE CONTAINS A VM), TIMDATE (IF PAGINATE 
SET AND THE HEADER MESSAGE CONTAINS A SVM), DATE (CIF 
PAGINATE SET AND THE HEADER MESSAGE CONTAINS TWO SVMS 
IN SUCCESSION) 


FOUR ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED 


IF LPBIT 1S SETs THREE LEVELS REQUIRED FOR’ TIMDATES 
ONE LEVEL ALWAYS REQUIRED FOR LFDLY 
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WSINIT 


WSINIT (1,TCLeINIT)» 
FUNCTIONAL DESCRIPTION 


THIS ROUTINE INITIALIZES THE FOLLOWING PROCESS WORK SPACE 
POINTER TRIADS$ BMS. BMSBEG, BMSENDS CS, CSREG, CSEND3 
AF, AFBEG, AFENDs TS, TSBEG, TSENDS I8, IBBEG, IBENDS OB, 
ORBEG, OBENDs ALSO PBUFBEG AND PBUFEND, IN EACH CASE, THE 
"REGINNING" STORAGE REGISTER (CAND ASSOCTIATEN ADDRESS 
REGISTER, IF PRESENT) IS SET POINTING TO THE FIRST BYTE OF 
THE WORK SPACE, AND THE “ENDING” STORAGE REGISTER IS_ SET 
POINTING TO THE LAST DATA BYTE. ALL WORK SPACES EXCEPT THE 
LAST (PROC) ARE CONTAINED IN ONE FRAMES PBUFBEG AND PBUFEND 
DEFINE A 4@FRAME LINKED WORK SPACE. 


WORK SPACE SIZE (RYTES) 


BMSBEG=BMSEND S50 


AFBEGeAFEND 50 
CSRPEGeCSEND 100 
IBBEGeIBEND CONTENTS OF JIBSIZE8 MAX, 140 
OBBEG#OBEND CONTENTS OF OBSIZESZ MAX, 140 
TSBEG*TSEND Sit 


PBUFBEGePBUFEND 20000 (4 LINKED FRAMES) 
INPUT INTERFACE 
IBSIZE T SIZE OF IB BUFFER 
OBSIZE T SIZE OF OB BUFFER 
OUTPUT INTERFACE 
REGISTERS ARE SET UP AS DESCRIBED ABOVE, THE FIRST 
BYTE OF EACH WORK SPACE, EXCEPT THE OB, I8 SET _ TO 


X'OO!, THE OB WORK SPACE IS FILLED WITH BLANKS 
(x'20'). IBSIZE AND OBSIZE ARE SET TO 140 IF INITIALLY 


NSINIT 


GREATER. 


ELEMENT lISAGE 


R1i§ R 
SUBROUTINE USAGE 
TSININIT CLOCAL), AND ONE INTERNAL SUBROUTINE 


TwO ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED 


WTLABEL 


WTLABEL (2, TAPETO#III)* 
FUNCTIONAL DESCRIPTION 


THIS ROUTINE MAY BE CALLED ONCE BY ANY ROUTINE TO WRITE A 
LABEL AT THE BEGINNING OF A MAGNETIC TAPE FILE. THE LABEL 
PASSED AS AN INPUT PARAMETER IS WRITTEN TO THE TAPE, ALONG 
WITH THE CURRENT TIME AND DATE, REEL NUMBER (ONE), AND THE 
TAPE RECORD SIZE. THE LABEL INFORMATION IS ALSO STORED IN 
THE LABEL SAVE BUFFER IN THE AUATERNARY CONTROL BLOCK 
(PCB+3). FOR THE FORMAT OF THE LABEL DATA ON THE TAPE AND 
IN THE SAVE BUFFER, SEE THE RDLABEL DOCUMENTATION, 


INPUT INTERFACE 


Is R POINTS ONE BEFORE THE LABEL OATA., WHICH 
MUST BE TERMINATED BY A STANDARD SYSTEM 
DELIMITER (SM, AM, VM, SVM, OR SB)3 IF 
THE LAREL DATA IS GREATER THAN SIXTEEN 
CHARACTERS LONG, IT WILL BE TRUNCATED TO 
SIXTEEN CHARACTERS 


OUTPUT INTERFACE 
18 R POINTS TO THE DELIMITER TERMINATING THE 
LAREL» QR TO SIXTEEN BYTES PAST THE 
INPUT POSITION IF NONE IS FOUND 


THE LABEL SAVE AREA IS INITIALIZED AS DESCRIBED, AND 
THE REEL NUMBER [8 SET TO ONE 


ELEMENT USAGE 


R13 R ¢ 

R14 R « UTILITY 

R45 R + 

D2 YM + USED BY TIMDATE 
D3 Dn »¢ 


5-93 


SUBROUTINE USAGE 
INT T3 TIMDATES TPWRITE# TWO INTERNAL SUBROUTINES 


WTLABEL 


FIVE ADDITIONAL LEVELS OF SUBROUTINE LINKAGE REQUIRED 


WTREC 


WTREC (5,0I1SKFIO#e1) 
FUNCTIONAL DESCRIPTION 
THIS ROUTINE COPIES THE CONTENTS OF THE UPD WORKSPACE (1 
FRAME ) INTO THE FRAME SPECIFIED BY TALLY RECORD. 
ADDITIONALLY THE SUBROUTINE WTLINK IS ENTERED TO SET UP R15 
POINTING TO THE LINK PORTION OF THE FRAME. AND TO SET UP THE 
LINK ELEMENTS NNCF, NPCF, FRMN, AND FRMP, 
INPUT INTERFACE 


RECORD D CONTAINS THE FIO OF THE FRAME INTO WHICH 
DATA TS TO BE COPIED 


UPDBEG ) POINTS ONE PRIOR TO THE FIRST DATA BYTE 
OF THE UPD WORK SPACE (OR ANY FRAME FROM 
WHICH DATA IS TO BE COPIED) 
OUTPUT INTERFACE 
UPN R zUPDBEG+500 


R14 R POINTS TO THE LAST BYTE OF THE FRAME 
SPECIFIED BY RECORD 


R15 R + 

NNCF H ¢ 

FRMN D « (SEE RDLINK/WTLINK DOCUMENTATION) 
FRMP D ¢ 

NPCF 4H ¢ 


ELEMENT USAGE 
NONE (BESIDES UPD AND R14) 
SUBROUTINE USAGE 


NONE 
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X¥TSOS 


XISOS (14,DISKFIOe])»* 
FUNCTIONAL DESCRIPTION 
X¥ISOS SIMPLY EXCHANGES THE CONTENTS OF THE IS/ISBEG/ISEND 


AND OS/OSBEG/OSEND REGISTER TRIADS. REGISTER R14 IS’ USED 
FOR SCRATCH PURPOSES, 


5-95 


SECTION 6 
CHANGES AFFECTING ASSEMBLY CODE 


THIS CHAPTER IS CONCERNED WITH THE ASSEMRLY LANGUAGE 
CHANGES RELEVANT TO 2.X% LEVEL UPGRADES TO RELEASE 3.0, 


OVERVIEW 


1) ALL ROUTINES MUST BE REASSEMBLED TO INSURE CORRECT 
OPCODES AND REFERENCES TO PSYM ELEMENTS 


2) THE FIRST 6 LINES OF ALL ASSEMBLY MODES SHOULD BE OF 
THE FORMAT DOCUMENTED BELOW, 


3) SYSTEM ROUTINES SHOULD BE REFERENCED RY 3.0 NAMES, 
THESE NAMES HAVE BREEN CHANGED TO MORE ACCURATELY REFLECT THE 
FUNCTIONS OF THE SUBROUTINES OR ELEMENTS. IF THIS JS NOT 
DESTREABLE,. THE USER MAY RECREATE THE OLD NAMES, 


4) CALLS TO THE ROUTINE CVDRIS (AND OTHER CVD... 
ROUTINES) ALWAYS ASSUME THAT THE [NPUT REGISTER POINTS ONE 
BEFORE THE INPUT DATA. THIS WAS DONE TO DECREASE THE 
CHANCES OF PROGRAM BUGS. | 


5) THE RESTRICTIONS ON THE USE OF THE 'BE' AND ‘BU! 
INSTRUCTIONS HAVE BEEN GREATLY RFQOUCED. THE FORMS 'BRE! ANDO 
‘BRU! ARE OBSOLETE. 


6) CALLS TO 'MADSUB CONVERT A 6#BYTE NUMBER (DO+T2) 
INSTEAD OF A FOUR BYTE NUMBER (D0). 6 BYTE LOAD 
INSTRUCTIONS (CY.E. LOANDX ..) ARE PROVIDED TO MAKE THIS 
EASIER, 


7) OPTION STRINGS IN INPUT LINES SET BITS ABIT@ZBIT. 
BITS AFLG TO ZFLG ARE PROVIDED FOR USE OTHER THAN AS 
OPTIONS, OPTION PARSING CAN BE INHIBITED IN VERBS BY 
SETTING SCP 2 0. SEE SUBROUTINE 'GETOPT', TEXT CONTAINING 
'C' WHICH DOES NOT LOOK LIKE AN OPTION STRING WILL NOT BE 
TREATED AS AN OPTION STRING, AND THE MESSAGE ‘INVALID OPTION 
STRING' HAS BEEN ELIMINATED, 


8) PROCESSORS SUCH AS BASIC AND ENGLISH HAVE BEEN 
MODIFIED FTO AVOID USING THE FOLLOWING ELEMENTS WHICH ARE NOW 
AVAILABLE FOR USER CODES 

A) SReN TO SR29 
B) CTR30 TO CTR4eA 
C) §8°0 TO S832 


9) BECAUSE OF UPDATES IN PLACE, THE OUTPUT INTERFACE OF 
UPDITM HAS BEEN REDUCED. 


10) THE INTERFACE FOR USER EXITS FROM PROC HAS’ BEEN 
EXPANDED. SEE THE SECTION CONCERNING PROC IN CHAPTER §, 


11) LOCAL "BSL' INSTRUCTIONS NOW PLACE A FID’ IN THE 
RETURN STACK, THE FIRST 2 BYTES OF THE RETURN STACK ARE 
ASSUMED BY THE FIRMWARE AS X!01B0!, 
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12) THE RIGHTMOST BIT OF THE LINK FIELD OF REGISTERS [8S 
USED AS AN EXTENSION OF THE WA FIELO, COMPARES OF FID'S 
WHICH WERE WRITTEN WITH [HE ASSUMPTION THAT THE FLAG FIELD 
COULD BE INCLUDED IN THE COMPARE ARE NO LONGER VALIO. (E.G. 
BE R6FIN,RECORD,LABEL). A NEW FORM OF INSTRUCTION (BES, 
BU3, BL3, BH3) HAS BEEN INTRODUCED TO COMPARE ONLY THE LAST 
3 BYTES OF A 4 BYTE FIELD (DOUBLE TALLY). 

(E.G. BES R6FID,RECORD.LABEL). 


13) THE INTERFACE TO THE TAPE ROUTINES HAS CHANGED TO 
ALLOW LARGE TAPE BLOCKS. SEE THE DOCUMENTATION ON 'TPREAD! 
AND 'TPWRITE’, 


14) THE ASSEMBLER OUTPUT LISTING INCLUDES A FIELD FOR 
DEFINITION LINES THAT SHOWS THE VALUES GENERATED IN THE TSYM 
ENTRY FOR THAT DEFINITION, 


15) THE LOGICAL COMPARE INSTRUCTIONS NOW ORDER THE 
VALUES OF BYTES AS3 

00,01 Dba eal Fe 80 nGl sn cnak bs FF 
FORMERLY, THESE WERE ORDERED A832 

BN rp BleceaaFkFFeO0s Olea aealTEn TP 
THIS AFFECTS THE BCL AND BCH INSTRUCTIONS ONLY, 


16) THE BASIC DEBUGGER USES PCB+28, 


PSYM ELEMENTS WITH NEW NAMES 


OLD NAME NEW NAME 
CVTNIB CVDIB 
CVINIR CVDIR 
CVINIS CVDIS 
CVTNOS CVDOS 
CVTHIB CVXIB 
CVTHIR CVXIR 
CVTHIS CVXIS 
CTHOS CVXOS 
TILD DECINHIB 
GETIB READLIN 
GETIBX READLINX 
ASEND BDESCTBL 
STKEND STKINP 
CARRIER BREAKKEY 
CVDR1L5X CVDRL5 
CVTHISX CVXIS 
CVTINISX CVDIS 
CVXRL5X CVXRL5 
IOBIT14 OTABF LG 
IOBIT2 PATTACH 
IOBIT4 ITABFLG 
SMCONV FRMTFLG 


DELETED PSYM ENTRIES 


ABSD 
BNIV 
CARRIER 
CTR 

DeL 
DFREE 
DOOD AH 
FP1 CHO) 
FP2(L) 
FPX(TO) 
FPY(TO) 
GETIB 
II 
IOBIT2 
LOCK 
MO11 
MD9 
NREC 
PTRPAG 
REG 
SSOS8P 
SETPIB 
TeLOAD 
TCLXIT 
TPBIT 


NEW PSYM ENTRIES 


AFLG 

88 

CFLG 
cvoo0s 
cVxXOS 
EFLG 
GACBMS 
GLOCKFLG 
IFLG 
MFLG 
NUMPFLG2 
RewADSP 
READLIN 
SFLG 


SYSTEMeSUBS@IV 


UFLG 
YFLG 


DELETED OSYM ENTRIES 


CHAIN 
DEFDX 
DEPTH 
FTLY 
RVP 


ASBEG 
BMUL 
CHARGE@UNITTS#EXT 
CVDR15X 
Dau 
DISKERR 
ENDBIT 
FPI(L) 
FP2(U) 
FPX(TOT1) 
FPYC(TOTI) 
GETIBX 
TIBEG 
IOBIT4 
LOGUNLOCK 
MD16 
MULFF 
OCONVMD 
QSTR 

REJS 

SB36 
SMCONV 
T3TeTi 
TFREE 
TYMO 


ATTSPC 
B9 

CVOIB 
CVXIB 
DAFO 
FFLG 
GETFILE 
H8 

JFLG 
NFLG 
OFLG 
R7WADSP 
READLINX 
SLEEPSUB 
TFLG 
VFLG 
ZFLG 


Bra 
DECK 
DEFDY 
DEFTY 
INCF 
SVP 


6-3 


FPOCTOTI) 
FPi(TiITe) 
FP3(L) 
FPX(T1) 
FPY(TIT2) 
HEADING 
TIENO 
ITAPEBIT 
MD10 

M018 
NEGFPO 
OVRFLWOQ 
R3SAVE 

RE JG 

SB40 
SMODSEP 
T4T5T6 
TIL 

TYPE 


B1i4 
BCKSP 
CVDIR 
CVXIR 
DFLG 
FLAGS 
GETLSPC 


PFLG 
RAEWADSP 
RETIXU 
SMODSSEP 
TPINIT 
WFLG 


BITNN 
DEFA 
DEFF 
EOU 
MBDFR 


ASTR 

C9 

CONF 1G 
CVXR15X 
DDUMP 
DIVFF 
FPO(T2) 
FP1(U) 
FP3(U) 
FPX(T2) 
FPY(T2) 
ICONVMD 
TOBIT14 
LOCKBITS 
MDIOFL 
MD23 
NOBIT 
PSYM 
ROUMP 
REJ5 
SB43 
STK INP 
TST6T7 
TILD 
WSINT 


Bes 
BFLG 
CvDISs 
CVXIs 
OMODDSEP 
FRMTFLG 
GFLG 
HFLG 
LFLG 
NUMFLGi 
OFLG 
READIB 
RFLG 
STKEND 
TPSTAT 
XFLG 


BSLA 
DEFBY 
DEFHY 
ESSR 
MBDNFR 
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